Hallo,
mir wurde in diesem Forum schon super weitergeholfen und mein Script ist fast durch.
Ich frage mich nun und bin mir sicher , dass es eine elegantere Lösung gibt. Ich möchte bestimmte Ordner und deren Unterordner durchsuchen.
Viele Grüße
mir wurde in diesem Forum schon super weitergeholfen und mein Script ist fast durch.
VB.NET-Quellcode
- Dim objFS, objFile
- Dim fso As Object
- Set fso = CreateObject("Scripting.FileSystemObject")
- strOrdner = "c:\exceltemp"
- strOrdner1 = "c:\exceltemp\1"
- strOrdner2 = "c:\exceltemp\2"
- For Each oFile In fso.GetFolder(strOrdner).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.MoveFile oFile.Path, "C:\Zielordner\"
- End If
- Next
- For Each oFile In fso.GetFolder(strOrdner1).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.MoveFile oFile.Path, "C:\Zielordner\"
- End If
- Next
- For Each oFile In fso.GetFolder(strOrdner2).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.MoveFile oFile.Path, "C:\Zielordner\"
- End If
- Next
- End Sub
Ich frage mich nun und bin mir sicher , dass es eine elegantere Lösung gibt. Ich möchte bestimmte Ordner und deren Unterordner durchsuchen.
Viele Grüße