求写一个在指定路径，搜索文件的代码

lamant · 发表于 2015-10-14 21:11:15

越简单越好，相信很多朋友也能用到。请大神帮忙。请勿拍砖～～～
1.弹出输入框；
2.根据输入框的前6位字符，在指定路径搜索前6位与之完全相同的文件，
3.打开该文件。未找到则提示无此文件并退出。

非常感谢！

个人还在看帮助文档的阶段，感谢～

xayle · 发表于 2015-10-14 23:41:44

本帖最后由 xayle 于 2015-10-14 23:43 编辑

全都是帮助里翻出来的

Local $sDir = FileSelectFolder("选择要搜索的目录.", "")
Local $value = InputBox("测试", "搜索内容.", "", " M6")
Local $hSearch = FileFindFirstFile($sDir & "\" & $value & "*.*")

; 检查搜索是否成功
If $hSearch = -1 Then
    MsgBox(4096, "错误", "没有文件/目录 匹配搜索")
    Exit
EndIf

While 1
    Local $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
        Switch MsgBox(0x4, "找到的文件:", "是否打开?" & @CRLF & $sFile)
        Case 6
            ShellExecute($sFile, "", $sDir)
        Case 7
            
    EndSwitch
WEnd

; 关闭搜索句柄
FileClose($hSearch)

ddrs · 发表于 2015-10-15 20:43:09

多看看帮助，好处多多

lamant · 发表于 2015-10-15 21:14:37

谢谢二楼～

heroxianf · 发表于 2015-10-15 22:44:53

谢谢二楼帮忙查帮助文件。收藏了

		自动登录	找回密码
密码			加入

[系统综合] 求写一个在指定路径，搜索文件的代码

相关帖子