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?
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?