Hallo,
eins Vorweg...ich habe von VBS bisher keine Erfahrung gehabt und fange gerade erst an ein wenig dazu zu lernen. Also habt bitte ein wenig Nachsicht bei meinem folgenden Script.
Worum gehts? Also ich habe auf der Arbeit ein Programm welches Logdatein lokal auf dem PC ablegt. Da wir mehrere Kollegen sind die dies nutzen und es immer Blöd ist nach den Logs zu fragen ob diese aktuell auf dem Serve rliegen habe ich ein kleines VBS geschrieben welches bei Anmeldung am System die Datein automatisch auf den Server in den jeweiligen Ordner legen soll. Dies Funktioniert auch bisher. Allerdings kommen jetzt grenzen auf wenn die Datei schon mit dem gleichen Namen auf dem Server liegt. Hier zeigt er mir dann die Fehlermeldung "Datei schon vorhanden" an.
Jetzt ist die Frag wie ich das in den Griff bekommen kann. Kann mir da einer bei helfen?
Grüße
Jascha
eins Vorweg...ich habe von VBS bisher keine Erfahrung gehabt und fange gerade erst an ein wenig dazu zu lernen. Also habt bitte ein wenig Nachsicht bei meinem folgenden Script.
Worum gehts? Also ich habe auf der Arbeit ein Programm welches Logdatein lokal auf dem PC ablegt. Da wir mehrere Kollegen sind die dies nutzen und es immer Blöd ist nach den Logs zu fragen ob diese aktuell auf dem Serve rliegen habe ich ein kleines VBS geschrieben welches bei Anmeldung am System die Datein automatisch auf den Server in den jeweiligen Ordner legen soll. Dies Funktioniert auch bisher. Allerdings kommen jetzt grenzen auf wenn die Datei schon mit dem gleichen Namen auf dem Server liegt. Hier zeigt er mir dann die Fehlermeldung "Datei schon vorhanden" an.
Jetzt ist die Frag wie ich das in den Griff bekommen kann. Kann mir da einer bei helfen?
Grüße
Jascha
VB.NET-Quellcode
- Option Explicit
- ' Variablen setzen
- Dim strLogPath
- Dim strLogJupesPath1
- Dim strLogJupesPath2
- Dim strLogJupesPath3
- Dim objNetwork
- Dim strHostname
- Dim objFileSystem
- Dim objWScriptShell
- ' Dateisystemobjekte setzen
- Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
- Set objWScriptShell = WScript.CreateObject("WScript.Shell")
- Set objNetwork = WScript.CreateObject("WScript.Network")
- ' Variablen
- strLogPath = "\\servername\Reparaturdaten\Logbuecher\"
- strHostname = objNetwork.ComputerName
- strLogJupesPath1 = objWScriptShell.ExpandEnvironmentStrings("%JUPESDIR%") + "\Fahrzeug Protokolle\"
- strLogJupesPath2 = objWScriptShell.ExpandEnvironmentStrings("%Systemdrive%") + "\Batterie\Fahrzeug Protokolle\"
- 'strLogJupesPath3 = ""
- ' Lobuchverzeichnis pruefen
- If (objFileSystem.FolderExists(strLogPath)) then
- ' Ordner %Computername% prüfen sonst erstellen
- elseIf (objFileSystem.FolderExists(strLogPath+strHostname)) = false then
- ' Ordner strLogPath+strHostname erstellen
- objFileSystem.CreateFolder(strLogPath+strHostname)
- ' Logbuchdatein von Lokal auf den Server kopieren
- else
- WScript.Echo("Netzlaufwerk nicht verfuegbar. Bitte mit dem Netzwerk verbinden oder Ordnerberechtigung ueberpuefen.")
- WScript.Quit()
- End If
- If (objFileSystem.FolderExists(strLogJupesPath1)) then
- objFileSystem.MoveFile strLogJupesPath1 + "*.*", strLogPath + strHostname
- End If
- If (objFileSystem.FolderExists(strLogJupesPath2)) then
- objFileSystem.MoveFile strLogJupesPath2 + "*.*" , strLogPath + strHostname
- End If
- ' Deallocate filesystem object
- Set objFileSystem = Nothing
- Set objWScriptShell = Nothing
- Set objNetwork = Nothing
- ' Beende Script
- WScript.Quit()