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