Hallo, ich habe mein Script soweit fertig. Diesen jedoch in vba programmiert. Ich müsste in VBS umprogrammieren und wollte fragen wie hoch der aufwand wäre
Es geht mir nicht darum den code zu posten und dann zu hoffen , dass jemand diesen umproggt. Möchte das schon gern selbst machen.
Ja, ich bin ein Anfänger und hab das etwas verpeilt mit vba und vbs. Das skript soll in einer Windowsumgebung laufen, ohne das Excel genutzt wird.
Welche Möglichkeiten gibt es für mich für dieses Problem?
Ich post den Code jetzt nur um den Aufwand einzuschätzen
Es geht mir nicht darum den code zu posten und dann zu hoffen , dass jemand diesen umproggt. Möchte das schon gern selbst machen.
Ja, ich bin ein Anfänger und hab das etwas verpeilt mit vba und vbs. Das skript soll in einer Windowsumgebung laufen, ohne das Excel genutzt wird.
Welche Möglichkeiten gibt es für mich für dieses Problem?
Ich post den Code jetzt nur um den Aufwand einzuschätzen
Visual Basic-Quellcode
- Dim fso As Object, f1 As Object, f2 As Object
- Dim ordner1 As String, ordner2 As String, ordner3 As String, ordner4 As String
- Const Ziel = "C:\Zielordner\"
- Const Ziel1 = "C:\Zielordner\1\"
- Const Ziel2 = "C:\Zielordner\2\"
- ordner1 = "J:\DAS\exceltemp"
- ordner3 = "J:\DAS\exceltemp\1"
- ordner4 = "J:\DAS\exceltemp\2"
- ordner2 = "c:\Quelle"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set objTextFile = fso.CreateTextFile("c:\" & Format(Now, "dd.mm.yyyy_HH-MM-SS") & " Watchdog.txt", True)
- objTextFile.WriteLine ("Watchdog gestartet...." & Format(Now, "dd.mm.yyyy_HH-MM-SS"))
- If fso.FolderExists(ordner1) And fso.FolderExists(ordner2) Then
- Set f1 = fso.GetFolder(ordner1)
- Set f2 = fso.GetFolder(ordner2)
- objTextFile.WriteLine ("Die Ordner sind gleich // Kopiervorgang gestartet... ")
- If f1.Files.Count = f2.Files.Count And _
- f1.SubFolders.Count = f2.SubFolders.Count And _
- f1.Size = f2.Size Then
- For Each oFile In fso.GetFolder(ordner1).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- If Not fso.FileExists(Ziel & oFile.Name) And fso.FolderExists(Ziel) Then
- fso.CopyFile oFile.Path, Ziel
- Else
- objTextFile.WriteLine ("Die Datei: " & oFile.Name & " aus dem Ordner " & ordner1 & " existiert in " & Ziel & " schon")
- End If
- End If
- Next
- For Each oFile In fso.GetFolder(ordner3).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- If Not fso.FileExists(Ziel1 & oFile.Name) And fso.FolderExists(Ziel1) Then
- fso.CopyFile oFile.Path, Ziel1
- Else
- objTextFile.WriteLine ("Die Datei: " & oFile.Name & " aus dem Ordner " & ordner3 & " existiert in " & Ziel1 & " schon")
- End If
- End If
- Next
- For Each oFile In fso.GetFolder(ordner4).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- If Not fso.FileExists(Ziel2 & oFile.Name) And fso.FolderExists(Ziel2) Then
- fso.CopyFile oFile.Path, Ziel2
- Else
- objTextFile.WriteLine ("Die Datei: " & oFile.Name & " aus dem Ordner " & ordner4 & " existiert in " & Ziel2 & " schon")
- End If
- End If
- Next
- Else
- objTextFile.WriteLine ("Die Ordner sind ungleich // Kopiervorgang nicht gestartet... ")
- End If
- End If
- objTextFile.WriteLine ("watchdog beendet !!" & Format(Now, "dd.mm.yyyy_HH-MM-SS"))
- Set fso = Nothing