Hallo Liebe Community,
ich arbeite momentan an einem Script das mir meine Worddokumente sammelt. Das funktioniert auch alles einwandfrei und in der hinsicht gibt es keinerlei Probleme. Allerdings bennent das Script die .doc Datein entsprechend dem Counter(denke ich) um. Die gefundenen WordDokumente heißen dann im Ausgabeordner immer Word01, Word02 usw.
Ich hoffe mir kann da jemand helfen. Ich stelle mal meinen Code hier rein.
EDIT: Ich glaube ich habe den Fehler soeben selbergefunden, es lag wohl an dem Prefix = "Word".
EDIT2: Allerdings werden jetzt alle Worddokumente die gefunden werden, durchnummeriert, also besteht mein Problem immer noch das ich der Name ändert.
lg ApreX
ich arbeite momentan an einem Script das mir meine Worddokumente sammelt. Das funktioniert auch alles einwandfrei und in der hinsicht gibt es keinerlei Probleme. Allerdings bennent das Script die .doc Datein entsprechend dem Counter(denke ich) um. Die gefundenen WordDokumente heißen dann im Ausgabeordner immer Word01, Word02 usw.
Ich hoffe mir kann da jemand helfen. Ich stelle mal meinen Code hier rein.
Visual Basic-Quellcode
- Set iFileSystem3 = CreateObject("Scripting.FileSystemObject")
- prefix = "Word"
- counter = 0
- Set IShellDispatch = CreateObject("Shell.Application")
- 'Zu durchsuchende Ordner
- titel = "Wo wollen Sie nach .doc Datein suchen?"
- Set Folder3 = IshellDispatch.BrowseForFolder(0, titel, 0)
- If Folder3 is Nothing then
- MsgBox "Das Programm wird geschlossen "
- WScript.Quit
- else
- pfad = Folder3.Self.Path
- End If
- 'Ausgabeordner
- titel = "Wo sollen die gefundenen Datein hinkopiert werden?"
- Set Folder3 = IshellDispatch.BrowseForFolder(0, titel, 0)
- If Folder3 is Nothing then
- MsgBox "Das Programm wird geschlossen "
- WScript.Quit
- else
- pfad2 = Folder3.Self.Path
- End If
- CollectDOC IFileSystem3.GetFolder(pfad)
- MsgBox "es wurde(n) " & counter & vbCrLf & "Worddokumente im Ordner " & pfad2 & " gesammelt!"
- 'Ordner öffnen
- Set iWshShell3 = CreateObject("WScript.Shell")
- IWshShell3.Run """" & pfad2 & """"
- Sub CollectDOC(Folder3)
- On Error Resume Next
- For Each IFile in Folder3.Files
- ext = LCase(IFileSystem3.GetExtensionName(IFile.Name))
- If ext = "doc" then
- Do
- Zielname = IFileSystem3.BuildPath(pfad2,_
- prefix & counter & " .doc")
- counter = counter +1
- Loop until (not IFileSystem3.FileExists(zielname))
- IFile.Copy zielname, true
- End If
- next
- For each Subfolder in Folder3.SubFolders
- CollectDOC subfolder
- Next
- On error Goto 0
- End Sub
EDIT: Ich glaube ich habe den Fehler soeben selbergefunden, es lag wohl an dem Prefix = "Word".
EDIT2: Allerdings werden jetzt alle Worddokumente die gefunden werden, durchnummeriert, also besteht mein Problem immer noch das ich der Name ändert.
lg ApreX
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ApreX“ ()