AU3怎么做出这种效果

没有知道

请问高手们AU3怎么做这样的自定义路径的新件文件夹。

[ 本帖最后由 没有知道 于 2009-1-24 19:30 编辑 ]

rchockxm

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 625, 445, 193, 125)
$Input1 = GUICtrlCreateInput("", 88, 96, 217, 21)
$Button1 = GUICtrlCreateButton("Button1", 312, 88, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                         Case  $Button1
                                                     $var = FileSelectFolder("请选择一个文件夹：", "", 7)
                                                     If Not @error Then
                                                         GUICtrlSetData($Input1, $var) 
                                                     EndIf
        EndSwitch
WEnd

應該是這樣子吧

958806868

使用 FileSelectFolder ( "对话框提示文本", "根目录" [, 标志 [, "起始目录"]] )
根目录 文件树的根目录。使用 "" 表示以桌面为根目录。
标志 1 = 显示“新建文件夹”按钮

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("自定义文件夹路径", 625, 445, 193, 125)
$Input1 = GUICtrlCreateInput("", 88, 96, 217, 21)
$Button1 = GUICtrlCreateButton("浏览", 325, 93, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case  $Button1
                   $var = FileSelectFolder("请选择一个文件夹：", "", 7)
                        If Not @error Then
                   GUICtrlSetData($Input1, $var) 
                EndIf
        EndSwitch
WEnd
 

[ 本帖最后由 958806868 于 2009-1-23 11:46 编辑 ]

没有知道

非常感谢,偶去试试

YoDe

学习了 非常谢谢

jericho0711

新手學習，感謝了...