Dateien wie Ordnername umbenennen ?

  • Hallo Leute,

    ich habe mir eine GUI erstellt. Jetzt fehlt mir nur der Code der alle Dateien im Ordner so umbenennt wie der Ordnername.
    Könntet ihr mir bitte helfen....

    Beispiel vorher:
    C:\Dino\Harry Potter und der Halbblutprinz\hp uder halb.avi

    Beispiel nachher:
    C:\Dino\Harry Potter und der Halbblutprinz\Harry Potter und der Halbblutprinz.avi

    [Blockierte Grafik: http://www.imgbox.de/users/public/images/3Myclhc8Wo.jpg]

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Dino\form1_1.kxf
    $Form1_1 = GUICreate("Ordnername = Dateiname", 499, 95, 242, 204)
    $Button1 = GUICtrlCreateButton("START", 184, 48, 121, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x008000)
    $Button2 = GUICtrlCreateButton("Abbruch", 320, 48, 137, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x800000)
    $Button3 = GUICtrlCreateButton(">", 464, 16, 25, 25, $WS_GROUP)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label2 = GUICtrlCreateLabel("Ordner:", 8, 20, 54, 17)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Input2 = GUICtrlCreateInput("", 72, 16, 385, 21)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Checkbox1 = GUICtrlCreateCheckbox("Unterordner", 72, 56, 89, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Besten Dank !

    Viele Grüße,
    Dino

    Einmal editiert, zuletzt von Dino (9. Juni 2010 um 10:25)

  • Hier mal ein BSP (um den aktuellen Verzeichnis naen rauszubekommen)

    [autoit]


    #include <Array.au3>
    $String = @ScriptDir
    $sString = StringSplit($String, "\")
    $MaxArray = _ArrayMax($sString)
    MsgBox(0, "", $sString[$MaxArray])

    [/autoit]

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

  • Hier ein paar Zeilen weniger ;)

    [autoit]

    $sString = @ScriptDir
    $aSplit = StringSplit($sString, "\")
    MsgBox(0, "", $aSplit[$aSplit[0]])

    [/autoit]