Excelillä on tallennettu aikojen kuluessa .txt-tiedostoja kansioon. Nyt olis tarve saada luettua muuttujaan viimeisen kansiossa olevan .txt-tiedoston nimi.
Tiedostonnimi muuttujaan
4
198
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
Ikävöin sinua kokoyön!
En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun453151Kova karman laki
Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko5081917Päivieni piristys, missä olet?
Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei171900Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia
jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si791712- 181512
Jos sinä olisit pyrkimässä elämääni takaisin
Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo431388- 261322
Millainen kaivattusi luonne on?
Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?901319Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.
Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.1161167UPM suunnittelee paperintuotannon lopettamista LPR:ssa
Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa1111135