Excelillä on tallennettu aikojen kuluessa .txt-tiedostoja kansioon. Nyt olis tarve saada luettua muuttujaan viimeisen kansiossa olevan .txt-tiedoston nimi.
Tiedostonnimi muuttujaan
4
<50
Vastaukset
- Anonyymi
ls ja tuolle tietyt parametrit.
- Anonyymi
Avaa kansio ja käytä silmämuniasi.
moduuliin...
Tallentaa viimeksi tallenetun tekstitedoston nimen muuttujaan VikaTiedostonnimi
Tallentaa viimeksi tallenetun tekstitedoston tallennusajan muuttujaan VikaPäiväys
Option Explicit
Dim Polku As String
Dim Tiedostonnimi As String
Public VikaTiedostonnimi As String
Public VikaPäiväys As Date
Dim TallennusPäiväys As Date
Sub Uusintiedosto()
'muuta polku ja tiedostopääte sopivaksi
Polku = "C:\Kunde\"
Tiedostonnimi = Dir(Polku & "*.txt", vbNormal)
If Len(Tiedostonnimi) = 0 Then
MsgBox "Ei löytynyt tekstitiedostoja...", vbExclamation
Exit Sub
End If
Do While Len(Tiedostonnimi) > 0
TallennusPäiväys = FileDateTime(Polku & Tiedostonnimi)
If TallennusPäiväys > VikaPäiväys Then
VikaTiedostonnimi = Tiedostonnimi
VikaPäiväys = TallennusPäiväys
End If
Tiedostonnimi = Dir
Loop
End Sub
Keep EXCELing
@Kunde- Anonyymi
Kiitti
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Naiset miltä kiihottuminen teissä tuntuu
Kun miehellä tulee seisokki ja ja sellainen kihmelöinti sinne niin mitä naisessa köy? :)644406Haistoin ensin tuoksusi
Käännyin katsomaan oletko se todellakin sinä , otin askeleen taakse ja jähmetyin. Moikattiin naamat peruslukemilla. Tu142219- 251734
- 121478
- 251411
Miksi kohtelit minua kuin tyhmää koiraa?
Rakastin sinua mutta kohtelit huonosti. Tuntuu ala-arvoiselta. Miksi kuvittelin että joku kohtelisi minua reilusti. Hais51278- 101207
- 131126
- 221076
Martinasta kiva haastattelu Iltalehdessä
Hyvän mielen haastattelu ja Martina kauniina ja raikkaan keväisenä kuvissa.2911004