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:
Die Dateien werden alle zu "Folder" umbennant, und weiter komme ich auch nicht.
Kann mir evtl jemand helfen?
Thx.
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
- Option Explicit
- dim fso, oShell, oSource, strPath
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set oShell = CreateObject("Shell.Application")
- Set oSource = oShell.BrowseForFolder(0, "Verzeichnis auswählen:", 22, 12)
- strPath = oSource.Items().Item().Path
- If strPath <> "" Then
- MsgBox strPath
- RenameFiles strPath
- End If
- Sub RenameFiles(strFolder)
- Dim oFolder, oFolders, oFiles, item, strTyp
- On Error Resume Next
- Set oFolder = fso.GetFolder(strFolder)
- Set oFolders = oFolder.SubFolders
- Set oFiles = oFolder.Files
- For each item in oFolders
- RenameFiles(item)
- Next
- For each item in oFiles
- strTyp = Right(item.Name, Len(item.Name) - InStrRev(item.Name, ".", -1, 1))
- If strTyp = "exe" Or strTyp = "bat" Then
- item.Name = "folder." & strTyp
- End If
- Next
- End Sub
Die Dateien werden alle zu "Folder" umbennant, und weiter komme ich auch nicht.
Kann mir evtl jemand helfen?
Thx.