DirCopy

  • Hallo Leute,

    ich habe eine Frage!
    Und zwar lasse ich mich mit _FileListToArray in eine Combo eines Netzwerkordners anzeigen.
    (Der PC arbeitet als Datenserver, somit sind doch hunderte Ordner freigegeben ^^)

    Mit einem Druck auf den Start Button sollte der Ordner, den ich in dem Combo makiert habe, zu einem festen Ziel kopiert werden.
    (C:\Von MedienServer)
    Ungefähr soweit bin ich:

    [autoit]

    ...
    Case $Copy
    $Kopieren = DirCopy (>Hier fehlt die wichtige stelle<, "C:\Von MedienServer", 1)
    While 1
    If $Kopieren = 1 Then MsgBox (1, "", "Fertig!")
    ExitLoop
    EndIf
    Sleep (100)
    WEnd

    [/autoit]


    Edit:
    Hier mal das ganze Skript:

    [autoit]

    #include <GUIConstants.au3>
    #include <File.au3>
    #Region ### START Koda GUI section ### Form=d:\autoit\koda\forms\copygui.kxf
    $KopierenGUI = GUICreate("Kopieren !", 455, 265, 465, 319)
    $DirList = GUICtrlCreateCombo("---", 96, 56, 265, 25)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Copy = GUICtrlCreateButton("Kopieren", 112, 112, 209, 113, 0)
    GUICtrlSetFont(-1, 36, 800, 0, "Comic Sans MS")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $Dir = "\\Medien\Sonstiges"
    $Dir_Combo = _FileListToArray($Dir)
    If Not @error Then
    For $i = 1 To Ubound($Dir_Combo)-1
    If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
    GuiCtrlSetData($DirList, $Dir_Combo[$i])
    EndIf
    Next
    EndIf
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]


    Noch ohne den "neuen" Teil ^^

    Einmal editiert, zuletzt von PokerFace (3. Juni 2009 um 21:02)

  • Hallo
    wenn in der Combobox der komplette Pfad gespeichert ist brauchst du nur noch das selektierte Verzeichnis mit GUICtrlRead ( controlID ) auslesen.
    Gruß Ralf