Beiträge von autoBert

**autoBert**

Hallo com,

ich würde gerne eine wbblite-Installation hierher umziehen. Da meine INet-Verbindung (web'n'Walk) sehr langsam ist (kein UMTS-Empfang) suche ich ein Skript dass alle ausgwählten Ordner/Dateien auf 1. Server zippt, so dass der Download deutlich schneller geht.

Noch optimaler wäre es natürlich wenn jemand ein Skript weiss mit dem Daten von 1. Server direkt auf den 2. Server übertragen kann

mfg autoBert

**autoBert**

Happy Birtday Blume. Die besten Wünsche vor allem Gesundheit, Erfolg in der Schule und Glück in allen Lebenslagen.
Feier schön Ach ja natürlich auch immer genügend flüssige Nährstoffe, aber nicht übertreiben

autoBert

**autoBert**

Hallo stevens,

dann nimm dieses von mir überarbeitete Skript:

AutoIt

$sSource = FileSelectFolder("Bitte Quellpfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 1)
$sDest = FileSelectFolder("Bitte Zielpfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 1)
If $sSource <> $sDest Then
	CopyWithProgress($sSource, $sDest)
	If @error Then MsgBox(16,'Fehler:',@extended)
Else
	MsgBox(0, "Fehler", "Quelle und Ziel müssen unterschiedlich sein")
EndIf
#Include <Date.au3>
Func CopyWithProgress($srcDir, $destDir)    ;Original gigx siehe http://autoit.de/index.php?page=Thread&postID=25989#post25989
    Local $tsBeginn = _NowCalc(), $tsDiff =-1, $tsRest    ;eingefügt für Restdauer
    If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
    If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
    If Not FileExists($destDir) Then DirCreate($destDir)
    $srcSize = DirGetSize($srcDir, 1)
	If Not IsArray($srcSize) Then Return SetError(1, 1)
    $1_percent = $srcSize[0] / 100
    Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G',@TempDir,@SW_HIDE )
    ProgressOn("Advanced status of file copying",  "", "",10,10)
    Do
        if $tsDiff < 0 Then Sleep(5000)
        $destSize = DirGetSize($destDir, 1)
		If Not IsArray($srcSize) Then Return SetError(1, 2)
        $tsDiff = _DateDiff("s",$tsBeginn,_NowCalc())
        $tsRest = round($tsDiff / ($destSize[0] / $1_percent) * 100,0) - $tsDiff
        ConsoleWrite($tsDiff & " " & $1_percent & " " & $tsRest &@CRLF)
        ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
            & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
            & $destSize[2] & " of " & $srcSize[2] & " Folders copied.", Round($destSize[0] / $1_percent, 2) & "% - Done! " & $tsRest & " sec. Rest")
        Sleep($tsDiff)
    Until $destSize[0] >= $srcSize[0]
    MsgBox(0,"Fertig in " & $tsDiff & " sec.",Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
            & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
            & $destSize[2] & " of " & $srcSize[2] & " Folders copied." & @CRLF & Round($destSize[0] / $1_percent, 2) & "% - Done! ")
    ProgressOff()
EndFunc
#cs
   /D:M-T-J  Kopiert nur die an oder nach dem Datum geänderten Dateien.
            Da kein Datum angegeben, werden nur Dateien kopiert,
            die neuer als die bestehenden Zieldateien sind.
  /S        Kopiert Verzeichnisse und Unterverzeichnisse, die nicht leer sind.
  /E        Kopiert alle Unterverzeichnisse (leer oder nicht leer).
  /V        Überprüft jede neue Datei auf Korrektheit.
  /C        Setzt das Kopieren fort, auch wenn Fehler auftreten.
  /H        Kopiert auch Dateien mit den Attributen 'Versteckt' und 'System'.
  /R        Überschreibt schreibgeschützte Dateien. (eventuell entfernen)
  /O        Kopiert Informationen über den Besitzer und ACL.
  /X        Kopiert Dateiüberwachungseinstellungen (bedingt /O).
              nicht gesetzt evtl. setzen
  /Y        Unterdrückt die Aufforderung zur Bestätigung, dass eine
              vorhandene Zieldatei überschrieben werden soll.
              praktisch aber evtl. entfernen, dann darf run aber nicht mit @SW_HIDE gestartet werden,
              da sonst ein unsichtbares Fenster auf eine Eingabe wartet
  /F        Zeigt die Namen der Quell- und Zieldateien beim Kopieren an.
              wenn mit @SW_HIDE gestartet unnötig, da Fenster unsichtbar
  /G        Ermöglicht das Kopieren von verschlüsselten Dateien auf ein
              Ziel wo Verschlüsselung nicht unterstützt wird.
#ce

Alles anzeigen

auf Wunsch eines einzelnen Nutzers, nochmal überarbeitet.

mfg autoBert

**autoBert**

Zitat von MrM.

Also es ist so:
ich habe eine Edit Box erstellt darunter: GUICtrlSetData(-1,"Meine Informationen")

Dann stell dieses Skript ein damit die Rätselraterei ein Ende hat. Im übrigen sind dir die richtigen Befehle zum suchen schon genannt worden.

@White: du bist von der Zeit kein Anfänger mehr, aber ein notorischer Hilfeverweigerer. Daher sollte man dir das posten generell verbieten. Dein Tipp würde immer eine 1 in die Editbox schreiben.

mfg autoBert

**autoBert**

Hallo MrM.,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die deutsche Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee

und jetzt zu deiner Frage: Was willst du durchsuchen,

das INet (allaGoogle)?
ein Verzeichnis auf deinem Computer?
den Inhalt einer Datenbank?

Du sollstest deine Frage also präzisieren,

mfg autoBert

**autoBert**

Zitat von iczcrash

Den Code kann ich grade nicht posten.

Dann schlage ich vor du postest den Code sobald du kannst, danach kann man ihn anschauen und auch supporten. Alles andere grenzt an Kaffeesatzleserei.

mfg autoBert

**autoBert**

Zitat von scenix

An welcher Stelle muss ich das hinzufügen ?

Die Schleife muss anstatt dieser Zeile

[autoit]

_GUICtrlListView_AddArray($wnamen, $aObjects)

[/autoit]

benutzt werden.

Zitat von scenix

Da du ja sagtest du hast AD.au3 nicht füge ich die hinzu

Verbünftiger wäre es du stellst das Array als Texfile ein, da nicht alle ActiveDirectory zur Verfügung haben. Einfach mit _ArrayDisplay anzeigen lassen, alle Einträge markieren und kopieren danach in ein Textfile einfügen.

mfg autoBert

**autoBert**

Halo matthias_199,

natürlich funktioniert

[autoit]

GuiRegisterMsg

[/autoit]

auch im OnEvent-Modus:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
Local $tZeit, $s1, $s2