moin!
als mir gestern im informatikunterricht etwa slangweilig wurde, bastelte ich mir ein script, mit welchem ich die Anzahl Dateien eines bestimmten typs auf einem laufwerk in eine tabelle auflisten kann.
nur bringe ich es nicht fertig, dass ich eine abfrage einbauen kann, welchen Dateitype ich auflisten lassen will. Kann mir jemand auf die Sprünge helfen?
Manuel
Achja! Das bestehende Script:
Dim listargs
Dim objFileSystem
Dim objFolder, objSubFolder, objFile, objCvsFile
Dim szFolder
Dim szCsvFile
Dim intLevel
Set listArgs = WScript.Arguments
Set objFileSystem = CreateObject(„Scripting.FileSystemObject“)
intLevel = 1
If listArgs.Count = 0 Then
szFolder = InputBox(„In welchem Ordner liegen die aufzulistenden Dateien?“, „Ordner auswählen“,„C:“)
Else
szFolder = listargs(0)
End If
szCsvFile = „C:\Temp\ListeWMA.csv“
szCsFile = InputBox(„Name und Pfad der zu erstellenden Liste?“,„CVS-Datei benennen?“, szCsvFile)
If Right(szCsvFile,4) „.cvs“ Then
szCsvFile = szCsvFile & „.cvs“
End If
Set objCvsFile = objFileSystem.CreateTextFile(szCsvFile,true)
objCvsFile.Write „Name der datei“ & „;“ & „Pfad der Datei“ & vbNewLine
ListFiles szFolder, intLevel
objCvsFile.Close
MsgBox „Die Datei " & szCsvFile & " wurde erstellt!“
function ListFiles(szFolder, intLevel)
If objFileSystem.FolderExists(szFolder) Then
Set objFolder = objFileSystem. GetFolder(szFolder)
For Each objFile In objFolder.Files
If Right(objFile.Name,4) „.WMA“ Then
objCvsFile.Write objFile.Name & „;“ & objFolder.Path & vbNewLine
End If
Next
For Each objSubFolder In objFolder.SubFolders
ListFiles objSubFolder.path, intLevel+1
Next
else
MsgBox „angegebener Ordner " & szFolder & " existiert nicht!“
end if
end function
Hier hab ich noch keine abfrage des dateityps eingebaut.
