dateien beim kopieren auflisten?!

  • huhu....

    gibt es irgendeine möglichkeit beim kopieren von dateien diese aufzulisten?

    also ich möchte ein paar dateien kopieren und diese sollen in nem scrollendem fenster dann angezeigt werden oder in einer art statusbar - ist sowas irgendwie möglich? denn einen befehl o.ä. hab ich dafür nicht gefunden, aber ich vermute dass ich es mit nem array machen muss - aber dazu habe ich noch zu wenig autoit erfahrung....

    Danke euch :D

  • Es gibt ja diesen Dialog, wo man sich dann die Datei auswählen muss.

    Bei dieser machst du dann $irgendwas = davor und rufst sie dann beim Kopieren wieder auf , indem du statt den Dateinamen einfach $irgendwas einträgst.

    Dann kannst du normalerweise den Dateinamen auch wieder aufrufen , wenn du es in eine Edit Box schreiben willst.

    Tut mir leid, aber ich weiß nicht mal mehr wie man " $ " nennt, da ich heute einen komischen Tag habe und heute total durcheinander bin.

  • aber dann werden die dateien doch sofort angezeigt und nicht eine nach der anderen - so wie sie kopiert wird - oder irre ich mich?

    und ich möchte ja eig. einige dateien kopieren die der benutzer aber nicht auszuwählen braucht....

  • Bitte schön :)
    Sollte selbst erklärent sein nur bitte den Pfad ändern !

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiConstantsEx.au3>
    ; var
    $pfad = @ScriptDir
    $pfadneu = "BITTE ÄNDERN" ; Wohin alles kopiert (gemovt werden soll !)
    $fileart = "txt" ; exe , bat : Ist egal was du da einträgt. Ein * für alle Datein !
    $abfrage = 2 ; 1 = Filecopy // 2 = Filemove !

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

    $Form1 = GUICreate("Trolling - Awesome", 637, 271, -1, -1)
    $Button1 = GUICtrlCreateButton("Kopiere", 16, 8, 75, 25, $WS_GROUP)
    $Edit1 = GUICtrlCreateEdit("", 16, 40, 589, 209, BitOR($ES_READONLY, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    GUICtrlSetBkColor(-1, 0x1a1a1a)
    GUICtrlSetColor(-1, 0xd5eaff)
    GUICtrlSetFont(-1, 8, 400, 0, 'Tahoma')
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    DirCreate($pfadneu)
    _Start()
    EndSwitch
    WEnd
    Func _Start()
    $search = FileFindFirstFile("*." & $fileart)
    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf
    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    If $abfrage = 1 Then
    FileCopy($pfad & "\" & $file, $pfadneu, 8)
    _GUICtrlEdit_AppendText($Edit1,"Copy:" & $file & " to -> " & $pfadneu & "\" & $file & @CRLF)
    ElseIf $abfrage = 2 Then
    FileMove($pfad & "\" & $file, $pfadneu, 8)
    _GUICtrlEdit_AppendText($Edit1,"Move:" & $file & " to -> " & $pfadneu & "\" & $file & @CRLF)
    EndIf
    WEnd
    FileClose($search)
    EndFunc ;==>_Start

    [/autoit]

    Update: Klappt es ?
    Ein danke wäre doch sehr gut

    Einmal editiert, zuletzt von tuttifrutti (12. August 2011 um 14:34)