Fehler zurückgeben falls keine Dateien vorhanden sind

Deutscher Support für die Software AllSync
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Fehler zurückgeben falls keine Dateien vorhanden sind

Post by georg.hofer »

Hallo,

ist es möglich einen Fehler zu generieren wenn ein Profil keine Daten zum sichern enthält?

MfG

Georg Hofer
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Re: Fehler zurückgeben falls keine Dateien vorhanden sind

Post by Administrator »

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:

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
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Source

Post by georg.hofer »

Hallo,

geht das auch mit der Source? Da die Daten im Ziel cumuliert werden und das Verzeichnis fast nie leer ist?

MfG

Georg Hofer
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Re: Source

Post by Administrator »

Anstatt dem Platzhalter [Destination1] einfach [Source1] verwenden. Siehe auch AllSync Dokumentation zu VB-Skript.
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

UNC

Post by georg.hofer »

Das Quellverzeichnis ist ein UNC Pfad mit Benutzername und Passwort.

Gibt es hierzu auch Platzhalter?

MfG

Georg Hofer
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Re: UNC

Post by Administrator »

Einfach [Source1] verwenden.
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Post by georg.hofer »

sorry, ich meinte Platzhalter für Benutzername und Passwort

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
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Post by Administrator »

Diese werden nicht benötigt, da AllSync ja schon die Verbindung hergestellt hat.
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Post by georg.hofer »

Hallo,

wenn ich die Zeile raußnehme erhalte ich Path not found

WshNetwork.MapNetworkDrive "",Quelle,"false","USERNAME","PASSWORD"

Skript starten bei: Kopiervorgang
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Post by Administrator »

Verwenden Sie nicht die aktuelle AllSync Version 3.5.42?
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Post by georg.hofer »

Doch, 3.5.42 - Business Edition
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Post by Administrator »

Ich kann hier kein Problem feststellen. "Path not found" erhalte ich nur wenn ich in den Profileigenschaften das Skript teste. Da sind die Ordner ja noch nicht verbunden...
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Post by georg.hofer »

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
Administrator
Site Admin
Posts: 4046
Joined: 04 Oct 2004, 18:38
Location: Thailand
Contact:

Post by Administrator »

Wie ist der genaue Inhalt des Skripts "CheckSourceFolderFileExists.vbs" zwecks Analyse von Fehler bei "(Line: 16, Column: 0)"?
georg.hofer
Posts: 14
Joined: 14 Sep 2012, 14:36

Post by georg.hofer »

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
Post Reply