Beiträge von hexpirator
-
-
Hi Leute.
Folgendes Problem.
Ich habe 2 mal FileListToArray. das eine vom Quellordner, das andere vom Ziel...
Nu möchte ich die beiden Arrays miteinander vergleichen und wenn ein Eintrag im Ziel-Array nicht vorhanden ist, die entsprechende Datei dann kopieren.
Was mir noch Kopfzerbrechen beritet ist, dass ich auch Ordner habe, die auch Unterordner enthalten könnten.
Mir will einfach nicht in die Birne, wie ich die beiden Programmschnipsel realisieren soll.Hat da jemand von euch vielleicht mal eine Idee?
Hier ist mein bisheriger Code. Ich weiß das Gui könnte man schöner und funktionaler gestalten, aber das ist mein erstes. Kann nur besser werden.
Spoiler anzeigen
[autoit]; By Hexpirator
[/autoit] [autoit][/autoit] [autoit]; Das Script soll Dateien aus dem Quellordner mit denen aus dem Zielordner
[/autoit] [autoit][/autoit] [autoit]
; vergleichen und neu hinzugefügten Dateien in den Zielordner kopieren.#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Dateiarchivierer", 402, 293, 261, 151)
$Datei = GUICtrlCreateMenu("&Datei")
$Quelle = GUICtrlCreateMenuItem("Quellordner auswählen... (Q)", $Datei)
$Ziel = GUICtrlCreateMenuItem("Zielordner auswählen... (Z)", $Datei)
$Beenden = GUICtrlCreateMenuItem("Programm Beenden... (Strg+X)", $Datei)
$Group1 = GUICtrlCreateGroup("Option wählen:", 8, 104, 377, 81)
$Radio_loeschen = GUICtrlCreateRadio("Daten im Quellordner löschen !!!", 24, 152, 177, 17)
$Radio_behalten = GUICtrlCreateRadio("Daten im Quellordner beibehalten", 24, 128, 185, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Modus wählen:", 8, 8, 377, 81)
$Radio_einmalig = GUICtrlCreateRadio("Daten einmalig abgleichen ?", 24, 32, 161, 17)
$Radio_automat = GUICtrlCreateRadio("Daten automatisch nach vorgegebener Zeit angleichen", 24, 56, 297, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Los = GUICtrlCreateButton("Los", 8, 224, 83, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("By Hexpirator", 104, 240, 75, 17)
GUISetState(@SW_SHOW)
Dim $Form1_1_AccelTable[1][2] = [["^!p", $Ziel]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###; Variablen Deklaration
[/autoit] [autoit][/autoit] [autoit]
Global $OpenQuell = 0
Global $OpenZiel = 0
;----------------------While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
;-----------------------
Case $GUI_EVENT_CLOSE, $Beenden
Exit
;-----------------------
Case $Quelle
_Open_Quell()
;-----------------------
Case $Ziel
_Open_Ziel()
;-----------------------
Case $Radio_loeschen
_Radiodelete()
;-----------------------
Case $Los
_Los()
;-----------------------
EndSwitch
WEndFunc _Open_Quell()
[/autoit] [autoit][/autoit] [autoit]
$OpenQuell = FileSelectFolder("Quellordner wählen", "Arbeitsplatz")
EndFuncFunc _Open_Ziel()
[/autoit] [autoit][/autoit] [autoit]
$OpenZiel = FileSelectFolder("Zielordner wählen", "Arbeitsplatz")
EndFuncFunc _Radiodelete()
[/autoit] [autoit][/autoit] [autoit]
$Option_Entscheidung = MsgBox(52, "Achtung!!!","Möchten Sie die Daten im" &@CRLF & "Quellordner wirklich löchen?")
;MsgBox(0,"lesen",$Option_Entscheidung) ;beim JA-drücken -> 6 beim NEIN -> 7
If $Option_Entscheidung = 7 Then
GUICtrlSetState($Radio_loeschen, $GUI_UNCHECKED)
GUICtrlSetState($Radio_behalten, $GUI_CHECKED)
EndIf
EndFuncFunc _Los()
[/autoit] [autoit][/autoit] [autoit]$Radio_einmalig_Status = GUICtrlRead ($Radio_einmalig)
[/autoit] [autoit][/autoit] [autoit]
$Radio_automat_Status = GUICtrlRead ($Radio_automat)
If $Radio_einmalig_Status = $Radio_automat_Status Then
MsgBox (48, "Modus","Bitte Modus wählen.")
Return
EndIf$Radio_behalten_Status = GUICtrlRead ($Radio_behalten)
[/autoit] [autoit][/autoit] [autoit]
$Radio_loeschen_Status = GUICtrlRead ($Radio_loeschen)
If $Radio_behalten_Status = $Radio_loeschen_Status Then
MsgBox (48, "Option","Bitte Option wählen.")
Return
EndIf$aFileList_Quell = _FileListToArray($OpenQuell)
[/autoit] [autoit][/autoit] [autoit]If @error = 1 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64,"Info","Bitte wählen Sie den Quellordner")
Else
_ArrayDisplay($aFileList_Quell, "Quelle")
EndIf
;Return
$aFileList_Ziel = _FileListToArray($OpenZiel)If @error = 1 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64,"Info","Bitte wählen Sie den Zielordner")
Else
_ArrayDisplay($aFileList_Ziel, "Ziel")
EndIfFor $i = 1 to UBound($aFileList_Quell) -1
[/autoit] [autoit][/autoit] [autoit]
;
; Hier soll das rein was mir einfach nicht in die Birne will.
;;$iIndex = _ArraySearch($aFileList_Ziel[$i],$aFileList_Quell[$i])
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Countup", $iIndex)
Next
MsgBox(0,"", "Start!")EndFunc
[/autoit] -
schau dir mal das Beispiel hier an.
Da ist so alles grundlegende drin für dein Problem
Hier der Link:[ gelöst ] Aus Exceltabelle Daten kopieren, in I-Seite suchen und Preise in Excel zurückscheiben
-
[autoit]
if $gedruecktetaste = 6 Then _ExeStart ()
[/autoit][autoit][/autoit][autoit]Func ExeStart ()
[/autoit][autoit][/autoit][autoit]
ShellExecute("C:\MeineExedatei.exe")EndFunc
[/autoit] -
Hallo AutoBert.
Danke für den Bugfix.
Es läuft alles soweit ganz gut, nur wenn ich den Button "Los" mit der Maus betätige, dann kommt erst die Message, dass die Abfrage erfolgreich war, doch dann öffnet sich die selbe xls-Datei und der Spaß beginnt von vorne.
Ein Return in Zeile 36 hat das Problem eliminiert.Nee Quatsch. das Problem besteht immer noch. Return wieder rausgenommen.
Komischer Fehler.Noch ein Problem: Wenn ich das Script auf der Arbeit ausführe, dann kommt die Fehlermeldung:
Es ist ein Fehler mit dem Internet aufgetreten.
was verständlich ist, weil der Internetzugang über einen Proxyserver gesperrt ist und durch Benutzername und Passwort freigeschaltet werden muss.Hat einer eine Idee, wie ich das bewerkstelligen kann?
Gruß, Hexpirator
-
-
Hallo.
Dank TheLuBu habe ich es nun geschafft das Script zu schreiben.
Sogar eine GUI habe ich hin bekommen *schulterklopf
doch einer Frage habe ich trotzdem. Siehe unten.
Hier das Script:
Spoiler anzeigen
[autoit]#cs
[/autoit] [autoit][/autoit] [autoit]By Hexpirator
[/autoit] [autoit][/autoit] [autoit]Dieses Script öffnet eine Excel-Datei, liest Daten aus der 2. Spalte der Tabelle, sucht danach
[/autoit] [autoit][/autoit] [autoit]
im Internet "Geizhals.at/deutschland" prüft den dazugehöringen Preis und schreibt ihn in die
4. Spalte der Tabelle zurück.
#ce
#include <Excel.au3>
#Include <String.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Preisabruf", 371, 243, 206, 124)
$Group1 = GUICtrlCreateGroup("Bitte hier den Dateipfad zur abzufragenden Exceltabelle eintragen", 8, 8, 353, 105)
$Exceldatei = GUICtrlCreateInput("C:\Dokumente und Einstellungen\Admin\Desktop\Test.xls", 16, 40, 337, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Los = GUICtrlCreateButton("Los", 8, 184, 123, 49, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 240, 184, 123, 49, $WS_GROUP)
$Group2 = GUICtrlCreateGroup("Anzahl der zu durchsuchenden Zeilen eingeben:", 8, 120, 289, 57)
$Zeilen = GUICtrlCreateInput("", 16, 144, 81, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE;Wird ausgeführt, wenn der Schließen Button gedrückt wird
ExitCase $Los;Wird ausgeführt, beim Druck auf den Los-Button
[/autoit] [autoit][/autoit] [autoit]
_execute()Case $Zeilen;Wird ausgeführt, wenn bei GUICtrlCreateInput ENTER gedrückt wird
[/autoit] [autoit][/autoit] [autoit]
_execute()Case $Abbrechen;Wird ausgeführt, beim Druck auf den Abbrechen Button
[/autoit] [autoit][/autoit] [autoit]
ExitEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd
;_________________________________________
Func _execute()$Exceldatei = GUICtrlRead ($Exceldatei)
[/autoit] [autoit][/autoit] [autoit]
$Zeilen = GUICtrlRead ($Zeilen)
$xls = StringRight($Exceldatei, 3) ;speichert die letzten 3 Zeichen der Variable $Exceldatei in $xls
If $xls = "xls" Then ;Wenn $xls = "xls" dann versuche Exceldatei zu öffnen
$oExcel = _ExcelBookOpen($Exceldatei)
If @error = 1 Then
MsgBox(48, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden") ;Versteht sich von selbst
Exit
ElseIf @error = 2 Then
MsgBox(48, "Fehler!", "Die Datei existiert nicht!") ;Versteht sich von selbst
Exit
EndIf
Else
MsgBox(48,"Fehler","Bitte Dateipfad überprüfen",3)
Exit
EndIfFor $i = 1 To $Zeilen ; ich gehe jetzt mal von 10 Sachen aus
[/autoit] [autoit][/autoit] [autoit]
$Cell = _ExcelReadCell($oExcel, $i, 2) ; erste Spalte in der Exceltabelle$Read = _InetRead("http://www.geizhals.at/deutschland/?in=&fs="&$Cell,1) ;Download Internetseite + Zelleninhalt
[/autoit] [autoit][/autoit] [autoit]
if @error <> 0 Then
MsgBox(48,"Fehler","Es ist ein Fehler mit dem Internet aufgetreten")
EndIf
$Read = BinaryToString($Read) ; gibt den HTML Quellcode der Suchseite aus
;-------------------------
$avArray = _StringBetween($Read, "€ ", "</a>") ; gibt String zwischen den angegebenen Strings zurück;_ArrayDisplay($avArray) ; stellt den Inhalt eines Array in einem Fenster dar fürs Debug
[/autoit] [autoit][/autoit] [autoit];-------------------------
[/autoit] [autoit][/autoit] [autoit]
_ExcelWriteCell($oExcel, $avArray[0], $i, 4) ; schreibt den Preis in die 2 Spalte der Exceldatei $avArray[0] enthält den 1. gefundenen Preis $avArray[1] den 2. usw.
Next
MsgBox(64,"Preisabruf","Der Preisabruf war erfolgreich",3)Exit
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]; Ende ___________________________________________
[/autoit]Nun zu meiner Frage. Wie kriege ich das hin, dass ich bei einer Fehlermeldung: siehe unter MsgBox nicht ständig das Programm killen muß, sondern wieder zur Eingabe der richtigen Daten zurückkehren kann?
Gruß...
-
Angenommen ich habe jetzt nach einem Artikel gesucht und möchte diesen String "Angebote ab € 64,02<" auswerten.
Das geht wahrscheinlich nicht, weil sich ja der Preis ständig ändert, oder?Wie kann ich denn realisieren, dass der Preis, der sich ja ständig ändert mit im String auftaucht?
Gibt es denn eine Funktion, die mir z.B. ausgehend von dem Zeichen "A" von Angebote weitere 30 Zeichen in einen String packt?
Ich hoffe es war verständlich.Muss ich da mit StringTrimLeft und StringTrimRight arbeiten?
Gruß
-
-
Wow du bist einfach nur KLASSE!!!
Danke für die Hilfe. Bin mal gespannt ob ich das auf die Reihe kriege.
Ich bin noch ein blutiger Anfänger, was autoit angeht.
Das heißt, ich müsste den String dann irgendwie umwandeln, bevor ich diese Befehle anwenden kann, oder?
Sonst bekomme ich doch eine null zurück, oder?
-
-
-
Hi Leute,
Ich suche eine Möglichkeit Daten aus einer Exceltabelle herauszukopieren, dann nach diesem String auf einer bestimmten Internetseite suchen und die dazugehörigen Preise wieder in die selbe Exceltabelle daneben zu schreiben.
Geht soetwas überhaupt, oder ist das zu speziell?
Hintergrund ist, dass ich mir einen neuen Rechner zusammenstellen möchte und sich die Preise auf der Internetseite von Tag zu Tag ändern.
Jetzt habe ich mir eine bestimmte Preisgrenze gesetzt und nun möchte ich wissen, wann meine Zusammenstellung in dem Preisrahmen liegt.Die Website um die es geht lautet:http://www.geizhals.at/deutschland</a> Es ist eine Preisvergleich-Seite.
Danke schonmal für Eure Antworten und Vorschläge.
Gruß, Hexpirator
-
Ich würde die Ordner gerne einmal über Inputbox auswählen können und dann verwenden.
Nur weiß ich leider nicht wie ich das anstellen soll.
Mit dem "\" weglassen werde ich ausprobieren.Ich habe hier irgendwo gelesen, dass man die Datei-, und Ordnernamen in ein Arrey packen kann und dann mit den Daten aus dem Zielordner vergleichen. Wenn vorhanden überspringen, wenn nicht, dann kopieren. Kann mir da vielleicht einer ein Denkanstoß geben???
Gruß, Eddy...
-
Hat keiner eine Idee?
-
Hier mein aktuelles Script. Es ist bestimmt nur eine Kleinigkeit, aber irgendwas übersehe ich.
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.6.1
[/autoit][autoit][/autoit][autoit]
Author: HexpiratorScript Function:
[/autoit][autoit][/autoit][autoit]
Das Programm soll einen Quellordner auf Veränderungen überwachen und in
bestimmten Zeitintervalen die neu hinzugefügten Dateien in einen Zielordner
kopieren. Also quasi eine Sicherheitskopie erstellen.#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]
HotKeySet("+c", "vergleich") ;Shift_und_c zur Sicherung für zwischendurch
Global $quelle = "C:\Dokumente und Einstellungen\Admin\Desktop\quell\"
Global $Ziel = "C:\Dokumente und Einstellungen\Admin\Desktop\ziel\";Wenn sich keine Ordner im Quellordner befinden
[/autoit][autoit][/autoit][autoit]
;Global $Quellverzeichnis = DirGetSize ($quelle,0)
;Global $Zielverzeichnis = DirGetSize ($Ziel,0);Wenn sich Ordner im Quellordner befinden: Rekursivmodus
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Global $Quellverzeichnis = DirGetSize ($quelle,2)
Global $Zielverzeichnis = DirGetSize ($Ziel,2)$Zeitintervall = 10000;600000
[/autoit][autoit][/autoit][autoit]AdlibRegister("vergleich",$Zeitintervall)
[/autoit][autoit][/autoit][autoit]while 1
[/autoit][autoit][/autoit][autoit]
Sleep (500)
WEndFunc vergleich()
[/autoit][autoit][/autoit][autoit]$Quellverzeichnis = DirGetSize ($quelle,2)
[/autoit][autoit][/autoit][autoit]
$Zielverzeichnis = DirGetSize ($Ziel,2)If $Quellverzeichnis > $Zielverzeichnis Then
[/autoit][autoit][/autoit][autoit]
DirCopy ("C:\Dokumente und Einstellungen\Admin\Desktop\quell", "C:\Dokumente und Einstellungen\Admin\Desktop\ziel", 0);($quelle, $Ziel, 1)
MsgBox (0, "Hinweis", "Vom Quellordner in den Zielordner kopiert.")
ElseIf $Quellverzeichnis = $Zielverzeichnis Then
;MsgBox (0, "Hinweis", "keine Änderung")
Else
If $Quellverzeichnis < $Zielverzeichnis ThenDirCopy ("C:\Dokumente und Einstellungen\Admin\Desktop\ziel", "C:\Dokumente und Einstellungen\Admin\Desktop\quell", 0)
[/autoit][autoit][/autoit][autoit]
MsgBox (0, "Hinweis", "Vom Zielordner in den Quellordner kopiert.")EndIf
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]Was mache ich falsch, bitte um Aufklärung.
-
Hi Leute. Ich habe mal wieder eine Frage.
Und zwar möchte ich mit den Cursortasten auf der Tastatur die Maus im MsPaint steuern und am liebsten mit der Leertaste den linksklick auslösen. Das ganze möchte ich erst mit einem Hot Key aktivieren und deaktivieren können.
Hintergrund der Geschichte ist, dass ich das Radiergummi entlang eines objektes positionieren möchte, um z.B. den Hintergrund zu löschen. Mit der Maus ist das immer so eine Zitterpatie.
Wäre schön wenn Ihr mir helfen könntet.
Gruß, Eddy...
-
Die Funktion DirCopy funktioniert bei mir überhaupt nicht. Ich weiß nicht was ich falsch mache, aber es will einfach nicht klappen.
-
Mit den Variablen läuft es bei mir nicht bei FileCopy, deshalb musste ich den gesamten Dateipfad eingeben. Ich wüsste nur gerne warum das nicht geht. Hat da einer eine Idee???
Hier das lauffähige Script:
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.6.1
[/autoit][autoit][/autoit][autoit]
Author: HexpiratorScript Function:
[/autoit][autoit][/autoit][autoit]
Das Programm soll einen Quellordner auf Veränderungen überwachen und in
bestimmten Zeitintervalen die neu hinzugefügten Dateien in einen Zielordner
kopieren. Also quasi eine Sicherheitskopie erstellen.#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]
HotKeySet("+c", "vergleich") ;Shift_und_c
Global $quelle = "C:\Dokumente und Einstellungen\Admin\Desktop\quell\"
Global $Ziel = "C:\Dokumente und Einstellungen\Admin\Desktop\ziel\";Wenn sich keine Ordner im Quellordner befinden
[/autoit][autoit][/autoit][autoit]
;Global $Quellverzeichnis = DirGetSize ($quelle,0)
;Global $Zielverzeichnis = DirGetSize ($Ziel,0);Wenn sich Ordner im Quellordner befinden: Rekursivmodus
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Global $Quellverzeichnis = DirGetSize ($quelle,2)
Global $Zielverzeichnis = DirGetSize ($Ziel,2)$Zeitintervall = 600000
[/autoit][autoit][/autoit][autoit]AdlibRegister("vergleich",$Zeitintervall)
[/autoit][autoit][/autoit][autoit]while 1
[/autoit][autoit][/autoit][autoit]
Sleep (500)
WEndFunc vergleich()
[/autoit][autoit][/autoit][autoit]$Quellverzeichnis = DirGetSize ($quelle,2)
[/autoit][autoit][/autoit][autoit]
$Zielverzeichnis = DirGetSize ($Ziel,2)If $Quellverzeichnis > $Zielverzeichnis Then
[/autoit][autoit][/autoit][autoit]
FileCopy ("C:\Dokumente und Einstellungen\Admin\Desktop\quell\*.*", "C:\Dokumente und Einstellungen\Admin\Desktop\ziel\*.*", 1);($quelle, $Ziel, 1)
MsgBox (0, "Hinweis", "Vom Quellordner in den Zielordner kopiert.")
ElseIf $Quellverzeichnis = $Zielverzeichnis Then
;MsgBox (0, "Hinweis", "keine Änderung")
Else
If $Quellverzeichnis < $Zielverzeichnis ThenFileCopy ("C:\Dokumente und Einstellungen\Admin\Desktop\ziel\*.*", "C:\Dokumente und Einstellungen\Admin\Desktop\quell\*.*", 1)
[/autoit][autoit][/autoit][autoit]
MsgBox (0, "Hinweis", "Vom Zielordner in den Quellordner kopiert.")EndIf
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]Außerdem ist mir im nach hinein aufgefallen, dass wenn ich einen Ordner mit ins Quellverzeichnis reinkopiere, dieser nicht ins Zielverzeichnis kopiert wird. geschweige denn, wenn sich im Unterordner etwas ändert.
Ich weiß, dass dieses Script nicht die optimale Lösung ist, aber für mein zweites Script ist es schon toll für mich. Natürlich mit Hilfe die User hier. -
Hi Leute, hier ist der Noob schon wieder.
Hier ist mein verändertes Script, aber kopieren will es immer noch nicht.
Ich bin am verzweifeln. Bitte um Hilfe.
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.6.1
[/autoit][autoit][/autoit][autoit]
Author: HexpiratorScript Function:
[/autoit][autoit][/autoit][autoit]
Das Programm soll einen Quellordner auf Veränderungen überwachen und in
bestimmten Zeitintervalen die neu hinzugefügten Dateien in einen Zielordner
kopieren. Also quasi eine Sicherheitskopie erstellen.#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$Quellverzeichnis = DirGetSize ("C:\Dokumente und Einstellungen\Admin\Desktop\quell,0")
$Zielverzeichnis = DirGetSize ("C:\Dokumente und Einstellungen\Admin\Desktop\ziel,0")
$quelle = "C:\Dokumente und Einstellungen\Admin\Desktop\quell"
$Ziel = "C:\Dokumente und Einstellungen\Admin\Desktop\ziel"while 1
[/autoit][autoit][/autoit][autoit]
Sleep (50)
WEndFunc vergleich()
[/autoit][autoit][/autoit][autoit]If $Quellverzeichnis > $Zielverzeichnis then
[/autoit][autoit][/autoit][autoit]
DirCopy ($quelle, $Ziel)ElseIf $Quellverzeichnis = $Zielverzeichnis Then
[/autoit]
MsgBox (0, "", "keine Änderung")
EndIf
Sleep (100000)
EndFunc