Vbscript - Skript, um zu überprüfen, ob die einzelnen Unterordner vorhanden ist

Arbeite ich an einem Skript, das im Grunde Kopien von Ordnern und Dateien von einem server zum lokalen Computer. Während der Arbeit an diesem habe ich herausgefunden, dass ich bin in der Notwendigkeit einer Funktion von einer Art, die im Grunde dauert ein string, der einen vollständigen Ordner-Pfad, spaltet es auf und prüft jeden Ordner, wenn es vorhanden ist. Wenn nicht, erstellen Sie den Ordner.

So, ich dachte an eine intelligente Art und Weise, dies zu tun, so kann ich den code wiederverwenden später.
Ich würde es gerne nehmen, ein argument, der string, der den vollständigen Pfad. Und der code macht den rest.

Edit: Dies ist der vollständige code von Jean-François Corbett. Ich gebe Ihnen über 9000 danke!

Public Sub createFolderStructure(ByVal strFullPath)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' How many levels are there?
    nLevel = 0
    strParentPath = strFullPath
    Do Until strParentPath = ""
        strParentPath = objFSO.GetParentFolderName(strParentPath)
        nLevel = nLevel + 1
    Loop

    For iLevel = 1 To nLevel
        ' Figure out path for directory at level iLevel
        strParentPath = strFullPath
        For j = 1 To nLevel - iLevel
            strParentPath = objFSO.GetParentFolderName(strParentPath)
        Next

        ' Does this directory exist? If not, create it.
        If objFSO.FolderExists(strParentPath) = False Then
            Set newFolder = objFSO.CreateFolder(strParentPath)
        End If
    Next
End Sub
Sind Sie auf der Codierung, ohne Option Explicit?? Wenn ja, sind Sie ärger bringen!
Ja, aber das ist, weil ich weiß, was ich Tue 😉 Nee, wirklich. Ich benutze "Option Explicit" in der Regel. Aber nicht, wenn ich nur skizzieren code wie dieser 🙂

InformationsquelleAutor Kenny Bones | 2011-06-21

  1. 1

    Da hast du objFSO sowieso, warum nicht seine GetParentFolderName und FolderExists Methoden. Wirklich, FileSystemObject hat die meisten dieser dachte bereits, so ersparen Sie sich einige Schmerzen; keine Notwendigkeit, das Rad neu zu erfinden.

    BEARBEITEN: Hier ein Beispiel von dem, was ich denke, Sie wollen zu tun. Passen wie Sie sehen, passen. 

    strFullPath = "C:\aaaa\Test\Vbscript" ' 4 levels

' How many levels are there?
nLevel = 0
strParentPath = strFullPath
Do Until strParentPath = ""
    strParentPath = FSO.GetParentFolderName(strParentPath)
    nLevel = nLevel + 1
Loop
Debug.Print nLevel ' nLevel = 4 for this example

For iLevel = 1 To nLevel
    ' Figure out path for directory at level iLevel
    strParentPath = strFullPath
    For j = 1 To nLevel - iLevel
        strParentPath = FSO.GetParentFolderName(strParentPath)
    Next j

    ' Does this directory exist? If not, create it.
    Debug.Print iLevel, strParentPath, FSO.FolderExists(strParentPath)
    If FSO.FolderExists(strParentPath) = False Then
        Set newFolder = FSO.CreateFolder(strParentPath)
    End If
Next iLevel
    Schön! Das war genau das, was ich dachte 🙂 ich konnte nicht glauben, das war nicht aus erstellt vor 🙂 Ok, also werde ich versuchen, diese und aktualisieren Sie den code, wenn es fertig ist 🙂 ich denke, ich sollte überprüfen, msdn öfter..
    Hmm, hast du irgendwelche Hinweise, wie dies zu tun? Ich meine, ich kann den Namen des übergeordneten Ordners und überprüfen, ob dieser existiert. Aber ich kann Sie nicht erstellen Sie Ordner UND Unterordner in einem Rutsch kann ich? Das heißt, wenn die GetParentFolderName gibt mir "C:\Temp\Test\Vbscript" dann kann ich nicht nur schafft, mit Unterordner und alle, kann ich?
    Siehe Antwort bearbeitet.
    Wow, das hat wirklich den trick tun! 🙂 Einfach zu Bearbeiten hatten ein paar Dinge, aber das ist sound! Aber ich habe gotta go durch, um sicherzugehen, dass ich tatsächlich das bekommen, was hier Los ist. Aber ich will! 🙂

    InformationsquelleAutor Jean-François Corbett

Schreibe einen Kommentar