DCPanther

Möchte mich bei euch beiden herzlich bedanken. Ist genau das was ich gesucht habe.

Grüsse aus der Schweiz

Hallo zusammen

Da ich im Script Bereich ein Neuling bin, hoffe ich, dass jemand von euch mir helfen kann.

Ich brauche einen Script zum auslesen einer Dateigrösse welche dann in einem Text File abgespeichert werden soll. Habe schon verschiedenes ausprobiert und bleibe jedesmal beim Versuch in eine Text Datei zu schreiben hängen. Ein kleines Beispiel:

Dim fso, file, Text, outputFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.GetFile("C:\Program Files\Data\URU.mdb")

Set Text = Text & "<br>Dateigrösse " & file.size & " Bytes"

DateiInfo = Text

Set outputfile = fso.OpenTextFile("C:\Program Files\Data\Dat.txt")

outputFile.write Text

outputFile.close

oder

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("C:\Program Files\Data\URU.mdb")

Wscript.Echo "Datenbankgrösse : " & objFile.Size & " " & "Bytes"

Set f1 = fso.OpenTextFile("C:\Program Files\Data\Dat.txt")

F1.write (" & objFile.Size & " " & "Bytes")

Wahrscheinlich sind alle Versuche falsch und ihr habt viel bessere Lösungen. Bin für alles offen.

Merci schon mal im voraus

Chrigu