title image


Smiley Re: Wie "Creation Date" anwenden?
Hallo





ich mach es so...









      

Sub Wann()

    Dim strPath$, strFile$

    strPath = "C:\Temp\"

    strFile = "Test.xls"

    

    If Dir(strPath & strFile) <> "" Then 'prüfen ob Datei vorhanden?

        MsgBox FileDateTime(strPath & strFile)

    Else

        MsgBox "Datei nicht gefunden"

    End If

End Sub 










 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: