hente dato fra tekstfil

Sub test()
Dim NySti, Fil
NySti = "C:\"
Fil = "test.txt"
Navn = NySti & Fil
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Navn)
SidsteDato = f.DateLastModified
End Sub

Sub test()
Dim NySti, Fil
NySti = "C:\"
Fil = "test.txt"
Navn = NySti & Fil
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Navn)
Attributen = f.Attributes
OprettetDato = f.DateCreated
SidsteDato = f.DateLastModified
Sidståbnet = f.DateLastAccessed
Typen = f.Type
FilNavn = f.ShortName
FilStørrelse = f.Size

MsgBox "Oprettet " & OprettetDato & vbLf _
    & "Sidst rettet " & SidsteDato & vbLf _
    & "Sidst åbnet " & Sidståbnet & vbLf _
    & "Typen " & Typen & vbLf _
    & "Filnavn " & FilNavn & vbLf _
    & "Størrelse " & FilStørrelse & " byte"
End Sub

Jeg har tre forskellige filer, hvor jeg skal hente datoen, Den henter fint, men i messagebox er der ikke linieskift og det ser ikke pænt ud
Hvorledes laves dette?
Gar kaldt filerne f1,f2 og f3(filerne er altid de samme)
Og det er bare lastmodified.
Kan man for øvrigt nøjes med kun at få datoen og ikke klokkeslettet?

LN

& vbLf _ laver linieskift.

Sub test()
Dim NySti, Fil
NySti = "C:\"
Fil = Array("f1.txt", "f2.txt", "f3.txt")

For I = 0 To UBound(Fil)
    Navn = NySti & Fil(I)
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(Navn)
    SidsteDato = SidsteDato & Chr(10) & Fil(I) & " - Sidst rettet: " & Left(f.DateLastModified, 11)
Next

MsgBox SidsteDato
End Sub

Ok det virker fint. Hvorledes kan man flette en fejlmeddelese ind såfremt filen ej findes og som gør at fterfølgende kode ej avikles?

Læg svar så jeg kan give point

LN

Således:

Sub test()
Dim NySti, Fil
NySti = "C:\"
Fil = Array("f1.txt", "f2.txt", "f3.txt")

For I = 0 To UBound(Fil)
    Navn = NySti & Fil(I)
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set f = fs.GetFile(Navn)
    If Err.Number = 53 Then
        Err.Clear
        MsgBox "Fejl!" & vbLf _
        & "Filen """ & Navn & """ eksisterer ikke!"
        Exit Sub
    End If
    SidsteDato = SidsteDato & Chr(10) & Fil(I) & " - Sidst rettet: " & Left(f.DateLastModified, 11)
Next

MsgBox SidsteDato
End Sub

Evt. sådan for din fejlboks:

        MsgBox "Fejl!" & vbLf _
        & "Filen """ & Navn & """ eksisterer ikke!" & vbLf _
        & Chr(10) & "Øvrige data: " & vbLf _
        & SidsteDato

Metoden der finder filen er ikke case sensitive og finder eksempelvis filen f1.txt, hvadenten den skrives F1.txt f1.TXT o.s.v. Hvis du vil have vist det rigtige navn (hvilket er mest korrekt), skal koden være:

Sub test()
Dim NySti, Fil
NySti = "C:\"
Fil = Array("f1.txt", "f2.txt", "f3.txt")

For I = 0 To UBound(Fil)
    Navn = NySti & Fil(I)
    Set fs = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set f = fs.GetFile(Navn)
    If Err.Number = 53 Then
        Err.Clear
        MsgBox "Fejl!" & vbLf _
        & "Filen """ & Navn & """ eksisterer ikke!" & vbLf _
        & Chr(10) & "Øvrige data: " & vbLf _
        & SidsteDato
        Exit Sub
    End If
    SidsteDato = SidsteDato & Chr(10) & f.Name & " - Sidst rettet: " & Left(f.DateLastModified, 11)
Next

MsgBox SidsteDato
End Sub

f.Name gør forskellen.

Åh min kode ser ikke så fin ud som din

Kunne du evt hjælpe mig med at lægge koden ind i mit ;O|

Private Sub CommandButton1_Click()
'Application.ScreenUpdating = False

Rem tjekker hvornår data er trukket ud af Axapta

Navn = "\\sti\Inventsum.txt"
Navn2 = "\\sti\OpenSalesLines.txt"
Navn3 = "\\sti\PurchLines.txt"


Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(Navn)
Set f2 = fs.GetFile(Navn2)
Set f3 = fs.GetFile(Navn3)

SidsteDato = f.DateLastModified
SidsteDato2 = f2.DateLastModified
SidsteDato3 = f3.DateLastModified



MsgBox "Data er sidst trukket ud af Axapta d. " & Chr(10) & Chr(10) _
& "Beholdning " & SidsteDato & vbLf _
& "Salg " & SidsteDato2 & vbLf2 & Chr(10) _
& "Indkøb " & SidsteDato3 & vbLf3

Rem færdig med at tjekke



Rem henter beholdning
    Sheets("Beholdning").Select

Osv osv med at hente data ind og behandle dem

Men findes filerne ikke skal det hele bare stoppe der og der skal komme en fejlmeddelse

Mange tak for hjælpen

LN

Hvad skal der ske her:

Rem henter beholdning
    Sheets("Beholdning").Select

Jeg kan ikke lige se hvad jeg skal flette. Du skal blot rette filstierne til i min kode.

Uhh der skal ske en hel masse. alle tekstfilerne skal hentes, pivottabeller etc skal opdateres osv osv

Ok ja jeg roder lidt med det. Tak for hjælpen

LN

Ellers sig til.