PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [vbs] Verzeichnis umbenenen?



nul
24-07-2006, 11:14
Bitte nicht Schlagen weil ich hier mit ner Frage zu VBS/Windows rueberkomme.
Also ich wurde dieses Jahr vom Arbeitgeber ein paar Skripte fuer Windows zu schreiben.

Um Klartext zu reden, vorher hab ich ueberhaupt nichts fuer Windows gescriptet und das ist jetzt mein zweites Skript.

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFSFolder = FSO.GetFolder("C:\...\test")

DurchsucheAbteilungen oFSFolder


Sub DurchsucheAbteilungen(oFSFolder)
Dim oFSSubFolder

For Each oFSSubFolder In oFSFolder.SubFolders
Wscript.Echo "Abteilung: "&oFSSubFolder.Name

UmbenennenVerzeichnis oFSSubFolder
Next

Set oFSFile = Nothing
End Sub

Sub UmbenennenVerzeichnis(folder)
Dim oFSSubFolder

For Each oFSSubFolder In folder.SubFolders
Wscript.Echo "Benutzer: "&oFSSubFolder.Name
SucheVerzeichnis oFSSubFolder
Next

Set oFSFile = Nothing
End Sub

Sub SucheVerzeichnis(folder)
Dim OldPath
Dim NewPath
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
OldPath = folder.Path&"\Lohnbuchhaltung\Stunden Berechnungen"
NewPath = folder.Path&"\Lohnbuchhaltung\Stundenberechnungen"

If fso.FolderExists(OldPath) = True Then
' fso.MoveFile OldPath,NewPath
End If
End Sub

Mein Problem liegt im Sub SucheVerzeichnis. Und zwar funktioniert das Umbenenen
fso.MoveFile OldPath,NewPath
nicht, der rest passt!

Is there somebody out there?

nul
24-07-2006, 13:12
Ich finde das doch etwas gemein, kaum hat man was gepostet findet mans selber raus.
fso.GetFolder(OldPath).Name = "Stundenberechnungen"
aendert einfach den Namen vom Verzeichnis, da brauchts kein MoveFile oder Rename.