Fehler zurückgeben falls keine Dateien vorhanden sind
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
Fehler zurückgeben falls keine Dateien vorhanden sind
Hallo,
ist es möglich einen Fehler zu generieren wenn ein Profil keine Daten zum sichern enthält?
MfG
Georg Hofer
ist es möglich einen Fehler zu generieren wenn ein Profil keine Daten zum sichern enthält?
MfG
Georg Hofer
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
Re: Fehler zurückgeben falls keine Dateien vorhanden sind
Also wenn der Zielordner nach dem Kopiervorgang leer ist eine Fehlermeldung ausgeben?
Dies ist mit der Profileigenschaft "VB-Skript" möglich.
Beispielskript, wenn der 1. Zielordner leer ist, dann wird Fehler der Fehler 1001 erzeugt und AllSync gibt eine Fehlermeldung aus:
Dies ist mit der Profileigenschaft "VB-Skript" möglich.
Beispielskript, wenn der 1. Zielordner leer ist, dann wird Fehler der Fehler 1001 erzeugt und AllSync gibt eine Fehlermeldung aus:
Code: Select all
Dim objFSO, objFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("[Destination1]")
If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
Err.Raise -1001
End If
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
Source
Hallo,
geht das auch mit der Source? Da die Daten im Ziel cumuliert werden und das Verzeichnis fast nie leer ist?
MfG
Georg Hofer
geht das auch mit der Source? Da die Daten im Ziel cumuliert werden und das Verzeichnis fast nie leer ist?
MfG
Georg Hofer
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
Re: Source
Anstatt dem Platzhalter [Destination1] einfach [Source1] verwenden. Siehe auch AllSync Dokumentation zu VB-Skript.
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
UNC
Das Quellverzeichnis ist ein UNC Pfad mit Benutzername und Passwort.
Gibt es hierzu auch Platzhalter?
MfG
Georg Hofer
Gibt es hierzu auch Platzhalter?
MfG
Georg Hofer
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
Re: UNC
Einfach [Source1] verwenden.
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
sorry, ich meinte Platzhalter für Benutzername und Passwort
Habe das einfach hart codiert
Habe das einfach hart codiert
Dim objFSO, objFolder
Dim objShell, WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Quelle = "[Source1]"
WshNetwork.MapNetworkDrive "",Quelle,"false","USERNAME","PASSWORD"
Set objFolder = objFSO.GetFolder(Quelle)
If objFolder.Files.Count <= 1 Then
Err.Raise -1001
End If
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
ich erhalte den Fehler auch wenn ich das Profil über den Scheduler starte
Code: Select all
19.09.2012 09:56:50 Scheduler wird deaktiviert.
19.09.2012 09:56:50 --------------------------------------------------
19.09.2012 09:56:50 Scheduler ist deaktiviert.
19.09.2012 09:56:52 Die Protokolldatei 'C:\gkn\AllSync\Log\scheduler.log' wird auf alte Einträge überprüft...
19.09.2012 09:56:52 ==================================================
19.09.2012 09:56:52 Task '9816 - TV-Montage' manuell gestartet
19.09.2012 09:56:52 ==================================================
19.09.2012 09:56:52 PROFIL: \ driveline \ 9816 - tv-montage \ Step 1 - EOL
19.09.2012 09:56:52 KOPIERMODUS: Sicherung
19.09.2012 09:56:52 Extern\VBSkript\Start: Skript 'C:\gkn\AllSync\Scripts\CheckSourceFolderFileExists.vbs' wird gestartet...
[b]19.09.2012 09:56:52 ERROR: Extern\VBSkript\Start: Beim Ausführen des Skripts ist ein Fehler aufgetreten: 76 - Path not found (Line: 16, Column: 0)[/b]
19.09.2012 09:56:52 Info: Die Verbindung zu dem Quellordner '\\10.171.17.241\Archiv\EOL' wurde erfolgreich hergestellt.
19.09.2012 09:56:54 QUELLE: \\10.171.17.241\Archiv\EOL\
19.09.2012 09:56:54 Info: Die Verbindung zu dem Zielordner '\\brusrfl03.driveline.gkn.com\maschinen-archiv$\9816 - TV-Montage\EOL\' wurde erfolgreich hergestellt.
19.09.2012 09:56:54 ZIEL: \\brusrfl03.driveline.gkn.com\maschinen-archiv$\9816 - TV-Montage\EOL\2012-09\
19.09.2012 09:56:54 Daten für die Fortschrittsanzeige werden ermittelt...
19.09.2012 09:57:07 Bearbeite Quelle -->> Ziel
-
- Site Admin
- Posts: 4049
- Joined: 04 Oct 2004, 18:38
- Location: Thailand
- Contact:
-
- Posts: 14
- Joined: 14 Sep 2012, 14:36
Code: Select all
Dim objFSO, objFolder
'Dim objShell, WshNetwork
'Set objShell = CreateObject("WScript.Shell")
'Set WshNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Quelle = "[Source1]"
'lret = objShell.Popup (Quelle, 0, "[Profil]", 5+48)
'WshNetwork.MapNetworkDrive "",Quelle,"false",".\xxx","xxx"
Set objFolder = objFSO.GetFolder(Quelle)
'If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
If objFolder.Files.Count = 0 Then
Err.Raise -1001
End If