Kopieren mit Variablen

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von flame4ever.

    Kopieren mit Variablen

    Hallo an alle,
    ich habe erst seit neusten mit vb-scripten angefangen und habe volgendes Script geschrieben:
    Leider bringt es aber immer die Fehlermeldung, das der pfad nicht gefunden werden könnte, ich kann den fehler aber einfach nicht finden und beheben.

    MfG flame4ever

    1. auslesen wie der ordner zb_test heist.
    2.Datei pa.doc nach pa kopieren und zu zb_test(pa).doc (ausgelesener ordnername) umbenennen.
    3.wenn m2.doc in pr\zb_test\pa\Q da ist -> nach \Q kopieren und zb_test(pa).doc (ausgelesener ordnername) umbenennen
    -> wenn nicht dann m1.doc aus pr\zb_test\pa\Q -> nach \Q kopieren und zb_test(pa).doc (ausgelesener ordnername) umbenennen

    Quellcode

    1. IST:
    2. \pa
    3. \pr\zb_test\pa\pa.doc
    4. \pr\zb_test\pa\Q\m1.doc
    5. \pr\zb_test\pa\Q\m2.doc
    6. \Q
    8. SOLL:
    9. \pa\zb_test(pa.doc).doc
    10. \pr\zb_test\pa\pa.doc
    11. \pr\zb_test\pa\Q\m1.doc
    12. \pr\zb_test\pa\Q\m2.doc
    13. \Q\zb_test(m2.doc).doc
    15. (vorherige name der datei)


    Visual Basic-Quellcode

    1. Dim objFSO, oFolders, oFolder, oSubFolders
    2. Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    3. Set oFolders = objFSO.GetFolder("Au\Pr\") 'Festlegen des Hauptordners
    4. Set oSubFolders = oFolders.SubFolders ' Ermitteln der Unterordner
    6. For Each oFolder In oSubFolders
    8. objFSO.copyFile "Au\Pr\" & oFolder.Name & "\Pa\Pa.doc", "Au\Pa\" & oFolder.Name & ".doc", True
    9. If objFSO.FileExists ("Au\Pr\" & oFolder.Name & "\Pa\Q\M2.doc") Then
    10. objFSO.copyFile "Au\Pr\" & oFolder.Name & "\Pa\Q\M2.doc", "Au\Q\" & oFolder.Name & ".doc", True
    11. End If
    12. objFSO.copyFile "Au\Pr\" & oFolder.Name & "\Pa\Q\M1.doc", "Au\Q\" & oFolder.Name & ".doc", True
    14. Next

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „flame4ever“ ()

Facebook