vbscript-Programmierung Rekursion-Techniken

ob es gut ist, die Praxis zu übergeben, das Ergebnis in eine rekursive Funktion, die ich nicht wirklich wissen, Sie können dies testen, indem Sie es auf diese Weise und die andere und vergleicht man die Zeit und den Speicher übernommen. Habe nicht versucht, diese mit Ihrer version dazu führen, dass ich die Fehlermeldung erhalten: "Microsoft VBScript runtime error: Permission denied", wenn ich starten Sie von der Wurzel des c:

Das eigentliche problem mit deiner Lösung ist die Verkettung, das dauert, weil das in Ihrem Fall GROßE variable wird jedes mal erstellt. Besser waren zum speichern des Ergebnisses in einem array oder in dem Fall von VBscript in einem Wörterbuch. Ich poste ein Beispiel.

Was der Unterschied zwischen sub und function betrifft: du hast Recht, über den Hauptunterschied, die Rückkehr zu einem Ergebnis, aber das ist optional, so dass ich immer mit Funktionen, der einzige Nachteil ist, dass wenn Sie nicht zuweisen den Wert einer Variablen zu, und verwenden Sie mehr als 2 Parameter, die Sie "call". Wenn du deinen Ansatz mit ByRef man könnte auch definieren, die var in den wichtigsten globalen Kontext, es ist vielleicht weniger gekapselt, aber besser lesbar und Sie lassen sich leichter wiederverwenden, oder Debuggen Sie die Ergebnisse.

Was die Geschwindigkeit betrifft: vbscript ist SEHR langsam in Datei-handling, wenn Sie die WMI-vielleicht könnten Sie die Geschwindigkeit ein wenig, aber nicht viel, in der Tat für einige Operationen ist es besser, zu berappen und lassen Sie das OS kümmern. Ich jetzt das Programm in Ruby gibt es die meisten Arbeitsplätze, wie Sie dies schreiben Sie in eine Zeile des Codes, und es ist viel schneller.

Sprechen über schnell, wenn Ihr einzige Zweck ist, um eine Liste der Dateien, um zu wissen, das tool "search everything", in weniger als einer Sekunde können Sie durchsuchen Sie Millionen von Dateien, wenn Sie nicht wissen, es check it out !

Hier ein Beispiel mit dem Wörterbuch

set fso = CreateObject("Scripting.FileSystemObject")
set filelist = CreateObject("Scripting.Dictionary")
iCount = 0
ShowSubfolders fso.GetFolder("C:\Documents and Settings\peter")
PrintFilelist(filelist)
'--- ---
Function ShowSubFolders(Folder)
  For Each Subfolder in Folder.SubFolders
    on error resume next
    wscript.echo Subfolder.Path 'show some progress
    Set fFolder = fso.GetFolder(Subfolder.Path)
    if err.number <> 0 then wscript.echo err.description
    For Each File in fFolder.Files
      iCount = iCount+1
      filelist.add iCount, File.Path
    Next
    ShowSubFolders Subfolder
  Next
End Function
'--- ---'
Function PrintFilelist(ByRef dic)
  Dim index, allKeys, allItems, msg
  allKeys = dic.Keys
  ' allKeys is an array to all the keys
  allItems = dic.Items
  ' allItems is an array to all the items
  wscript.echo "There are " & dic.Count & " number of files in the dictionary"
  For index = 0 To dic.Count-1
    ' Notice, dictionary range goes from 0 to count-1
    wscript.echo "Key=" & allKeys(index) & " Filename=" & allItems(index)
  Next
End Function

InformationsquelleAutor peter