VBScript

StudentJojo

Das Problem ist folgendes: Wenn ich das Script ohne Argumente starte, dann erstellt es die Datei „Verzeichnis.txt“. Wenn ich jetzt aber nen Verzeichnis als Argument übergebe, da wird das Script zwar ausgeführt, aber keine Datei erstellt. Woran liegt das?

option explicit

dim args
dim fs
dim arg
dim temp
dim tempFiles
dim tempFolders
dim currentFolder
set args = WScript.Arguments
set fs = CreateObject( "Scripting.FileSystemObject" )

dim file
set file = fs.CreateTextFile( "Verzeichnis.txt", true )

for each arg in args

	if fs.FolderExists( arg ) then
		set currentFolder = fs.GetFolder( arg )
		for each temp in currentFolder.files
			if fs.FolderExists( temp ) then
				set temp = fs.GetFolder( temp )
				tempFolders = tempFolders & temp.Name & vbTab & temp.Name & vbCrlf
			end if
			if fs.FileExists( temp ) then
				set temp = fs.GetFile( temp )
				tempFiles = tempFiles & temp.Name & vbTab & temp.Size & vbCrlf
			end if	
		next
	end if

	file.WriteLine( "Inhald des Verzeichnisses: " & arg & vbCrlf & tempFolders & tempFiles )

next

file.Close

Grüße,

Johannes Albani

supertux

VBscript kann zwar Dateien erstellen, ich kann mich aber erinnern, dass weder Javascript noch vbscript durchs MS Internet Explorer schreiben können und das ist gut so.

StudentJojo

das is nen lokales script.
auch wenn es ned schreiben könnte, so müsste es doch trotzdem die datei erstelln?!

supertux

StudentJojo schrieb:

das is nen lokales script.
auch wenn es ned schreiben könnte, so müsste es doch trotzdem die datei erstelln?!

wenn keine Datei geschrieben werden kann, dann kann auch kein erstellt werden.

StudentJojo

aber es muss was im script nicht stimmen, denn wenn ich die komplette for ... each Schleife weglass, dann erstellts mir ja die datei.....