title image


Smiley Datei-Informationen mit dem FileSystemObject ermitteln


Public Function ShowFolder(FolderName As String)

Dim FSO As New Scripting.FileSystemObject, F As Scripting.File

For Each F In FSO.GetFolder(FolderName).Files

Debug.Print F.Path, F.Size, F.DateCreated, F.DateLastAccessed, F.DateLastModified

Next F

Set FSO = Nothing

End Function



Verweis auf die Scripting Runtime (SCRRUN.DLL) setzen!


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: