Tiedostonnimi muuttujaan

Anonyymi

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

4

190

    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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      145
      2720
    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      362
      1995
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1717
    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      33
      1614
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      28
      1360
    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1203
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1163
    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      327
      937
    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      928
    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      772
    Aihe