Excelillä on tallennettu aikojen kuluessa .txt-tiedostoja kansioon. Nyt olis tarve saada luettua muuttujaan viimeisen kansiossa olevan .txt-tiedoston nimi.
Tiedostonnimi muuttujaan
Anonyymi
4272
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 4
Vanhimmat
ls ja tuolle tietyt parametrit.
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
Kiitti