<font color=green>' Dateigröße ermitteln</font>
Dim FSO As New Scripting.FileSystemObject
Dim Folder As Scripting.Folder
 
Dim sPath As String
Dim sFile As String
 
sPath = "d:	emp\"
sFile = "DeineDatei.txt"
 
Set Folder = FSO.GetFolder(sPath)
MsgBox Folder.Files(sFile).Size