title image


Smiley Re: Änderung in einem Verzeichnis ?
HiAlso ne Prüfsumme für die Menge der Bytes in einem Verzeichnis gibt die folgende Function zurück Function summeByte()Dim fs, f, f1, fcDim bt As Long Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(M:\Mail) Set fc = f.Files For Each f1 In fc bt = bt + FileLen(M:\Mail\" & f1.Name) Next summeByte = btEnd Function Ich hoffe es hilftcu Jordis

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: