Tiedostonnimi muuttujaan

Anonyymi

Excelillä on tallennettu aikojen kuluessa .txt-tiedostoja kansioon. Nyt olis tarve saada luettua muuttujaan viimeisen kansiossa olevan .txt-tiedoston nimi.

4

198

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      45
      3151
    2. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      508
      1917
    3. Pä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 tei
      Ikävä
      17
      1900
    4. Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia

      jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si
      Maailman menoa
      79
      1712
    5. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      18
      1512
    6. 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, jo
      Tunteet
      43
      1388
    7. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      26
      1322
    8. Millainen kaivattusi luonne on?

      Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?
      Ikävä
      90
      1319
    9. Helena 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.
      Kotimaiset julkkisjuorut
      116
      1167
    10. UPM suunnittelee paperintuotannon lopettamista LPR:ssa

      Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa
      Lappeenranta
      111
      1135
    Aihe