[VBS] Dateien in Ordnername umbenennen

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mono.

    [VBS] Dateien in Ordnername umbenennen

    Hallo,

    folgende Sachlage:

    Ich habe ein Ordner indem ca 1000 weitere Ordner vorhanden sind. In jedem der ca 1000 Ordner befindet sich eine Datei.
    Jeder Ordnername hat (nur) 1 Datei drin. Dieser Datei möchte ich den Namen des Ordners geben (oder hinzufügen) in dem es drin ist.

    Ich habe gegoogelt etc und bin jetzt so weit:

    Quellcode

    1. Option Explicit
    2. dim fso, oShell, oSource, strPath
    3. Set fso = CreateObject("Scripting.FileSystemObject")
    4. Set oShell = CreateObject("Shell.Application")
    5. Set oSource = oShell.BrowseForFolder(0, "Verzeichnis auswählen:", 22, 12)
    6. strPath = oSource.Items().Item().Path
    7. If strPath <> "" Then
    8. MsgBox strPath
    9. RenameFiles strPath
    10. End If
    11. Sub RenameFiles(strFolder)
    12. Dim oFolder, oFolders, oFiles, item, strTyp
    13. On Error Resume Next
    14. Set oFolder = fso.GetFolder(strFolder)
    15. Set oFolders = oFolder.SubFolders
    16. Set oFiles = oFolder.Files
    17. For each item in oFolders
    18. RenameFiles(item)
    19. Next
    20. For each item in oFiles
    21. strTyp = Right(item.Name, Len(item.Name) - InStrRev(item.Name, ".", -1, 1))
    22. If strTyp = "exe" Or strTyp = "bat" Then
    23. item.Name = "folder." & strTyp
    24. End If
    25. Next
    26. End Sub


    Die Dateien werden alle zu "Folder" umbennant, und weiter komme ich auch nicht.

    Kann mir evtl jemand helfen?

    Thx.
    Hi,

    hast es ja schon fast.
    Ändere in Zeile 32

    Visual Basic-Quellcode

    1. item.Name = "folder." & strTyp


    zu

    Visual Basic-Quellcode

    1. item.Name = oFolder.Name & "." & strTyp


    Das ist meine Signatur und sie wird wunderbar sein!