title image


Smiley Re: File-Eigenschaften auslesen ...
Hi HB,



die Dateieigenschaften kannst Du so auslesen:



Dim objDatei As Object

Dim strDatei As String

strDatei = "C:\EasyBackup.exe"

Set objDatei = CreateObject("Scripting.FileSystemObject").GetFile(strDatei)



MsgBox objDatei.DateCreated & vbNewLine & _

objDatei.DateLastAccessed & vbNewLine & _

objDatei.DateLastModified & vbNewLine & _

objDatei.ParentFolder & vbNewLine & _

objDatei.ShortPath & vbNewLine & _

objDatei.ShortName & vbNewLine & _

objDatei.Type & vbNewLine & _

CBool(objDatei.Attributes And ReadOnly) & vbNewLine & _

CBool(objDatei.Attributes And Archive) & vbNewLine & _

CBool(objDatei.Attributes And Compressed) & vbNewLine & _

CBool(objDatei.Attributes And Hidden)



Set objDatei = Nothing



Entweder packst Du das mit in die vorhandene Routine oder Du erstellst Funktionen.



Viele Grüße



Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: