Umbenennen und Verschieben von Ordnern Mit VB

Habe ich das folgende Skript, das funktioniert Super, wenn ich zum umbenennen von Dateien in einem Ordner, aber jetzt will ich verschieben und umbenennen von Ordnern von einem zugeordneten Laufwerk zu einem anderen Laufwerk zugeordnet. Kann mir jemand helfen, ändern Sie das Skript so zu tun? Ich bin failry neu auf VB, also Verzeihung wenn ich nicht firgure diese aus, aber es hat ein wenig gedauert, zu diesem Bild ein, und jetzt bin ich nicht sicher, wie Sie zu ändern Sie dieses Skript. Vielen Dank im Voraus!

Ordner standardmäßig gekennzeichnet sind, A. 1234, A. 5678, und so weiter und wird immer eine andere Nummer zugewiesen. Ich werde die zahlen in der Bezeichnung wie Sie sind PO-Nummern. Also mein Endergebnis gewünscht ist Ack~1234, Ack~5678, und so weiter. 

Dim fso, f, f1, fc, s Set 
fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("Y:\Test") 
Set fc = f.Files 
For Each f1 in fc 
    f1.move f1.ParentFolder & "\" & replace(f1.Name, "A.", "Ack~")

Wieder diese Ordner existieren, auf den Stamm ein zugeordnetes Laufwerk und Notwendigkeit sich zu bewegen zu einem anderen zugeordneten Laufwerk mit dem neuen Namen. Wenn mehr info benötigt wird bitte zögern Sie nicht zu Fragen.

UPDATE

Modifizierte ich das Skript unten, um eine Vorstellung zu geben von dem, was ich Suche zu tun. 

Dim fso, objFol 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objFol = fso.GetFolder("Z:\") 
Set objFolders = objFol.Folders 
For each folder in objFolders 
    fso.Movefolder folder, "Y:\" & Replace(fso.Name, "A.", "Ack~") 
Next

Diese geben mir die Fehlermeldung " nicht unterstützt "Ordner". Es wird eine beliebige Anzahl von Ordner in Laufwerk Z: und ich brauche, um Sie zu verschieben die alle auf dem Y-Laufwerk. Sorry, wenn ich nicht erklären, richtig in der früheren post.

  • Sieht aus wie dieses ist weder vb.net noch VBA noch VB, aber mit VBScript. Wenn richtig bin, bitte ändern Sie Ihre tags.
  • Könnte sein, VBA-oder VB ohne "Option Explicit" (ist standardmäßig off für einige Grund ich ' ll nie verstehen). Entfernt vb.net tag
InformationsquelleAutor Wenceslao Ponce | 2011-05-26
  1. 1

    Den move-Befehl nimmt einen string, für die Sie uns zur Verfügung stellen der übergeordnete Ordner der Datei, also die Datei nicht verschieben. Ich denke, es wird ausreichend sein, um einen anderen Ordner. Zum Beispiel:

    Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("Y:\Test") 
Set fc = f.Files 

For Each f1 in fc 
    f1.move "Z:\TargetFolder\" & replace(f1.Name, "A.", "Ack~")

    Hinweis: ich habe nicht getestet, aber wenn es Probleme gibt, dann einfach Fragen

    Zusätzliche Sachen nach update:

    Den folgenden code können Sie zum verschieben-Ordner, und führen Sie die Ersetzungen, die Sie brauchen, um die Ordner-Namen string.

    Dim fso, objFol, objMoveFol, strPathBuild

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFol = fso.GetFolder("Y:\Test")

For Each objMoveFol In objFol.SubFolders

    'Replace the root folder locations in the path
    strPathBuild = Replace(objMoveFol, "Y:\Test", "Z:\TargetFolder\")

    'Do the required other fiddle
    strPathBuild = Replace(strPathBuild, "A.", "Ack~")

    fso.Movefolder objMoveFol, strPathBuild 

Next

    Stellen Sie sicher, dass Sie wirklich vorsichtig sein mit dieser Art der Sache, wie immer falsch ist, kann ziemlich spektakulär.

    • Jon, Sie haben keine Ahnung, wie viel ich Schätze Ihre Antwort! Ich veränderte das Skript unten, um eine Vorstellung zu geben von dem, was ich Suche zu tun. dim fso,objFol set fso = CreateObject("Scripting.FileSystemObject") set objFol = fso.GetFolder("Z:\") set objFolders = objFol.Ordner Für jeden Ordner in objFolders BFS.Movefolder Ordner, "Y:\" & Ersetzen(fso.Name, "A.", "Ack~") Neben Dieser geben mir die Fehlermeldung " nicht unterstützt "Ordner". Es wird eine beliebige Anzahl von Ordner in Laufwerk Z: und ich brauche, um Sie zu verschieben die alle auf dem Y-Laufwerk. Sorry, wenn ich nicht erklären, richtig in der früheren post.
    • Jon, ich danke Ihnen noch einmal für Ihr feedback. Dies funktioniert wie ein Charme. Es selbst bewegt sich die Dateien innerhalb der Ordner! Getestet habe ich das Skript lokal und alles ist gut. Ich habe versucht, dies auf die zugeordneten Laufwerke und es scheiterte an der Genehmigung Rechte. Ich werde mit dem server-administrator und beheben das Problem so schnell wie möglich. Ich wirklich zu schätzen Ihre Hilfe bei diesem! Danke!!!
    • Kein problem. Wenn Sie möchten, dass viel dann drücken Sie die Zecke gegen meine Antwort, und ich bekomme extra Brownie-points (wie Sie!)
    • Jon, ich erhalte ein "permission denied" Fehlermeldung beim ausführen des Skripts. Ich versuche Ordner zu einem server zugeordnet ist, aus dem computer, der den Prozess ausführt. Muss ich einfügen, um ein Skript mit den Anmeldeinformationen, um den Zugriff zu gewährleisten? Bitte beraten und vielen Dank im Voraus!
    InformationsquelleAutor Jon Egerton
Schreibe einen Kommentar