查找某文件夹下是否有.inf的文件，有则返回文件夹路径，应该怎么写？

linzhuantu · 发表于 2012-8-26 10:33:59

需要由程序自动去计算机某个文件夹下或某个盘下寻找含有.inf格式的文件，有的话返回这个含这个文件的文件夹路径。例如，D盘下有D:\文件A\xxx.inf，则返回D:\文件A。Au3应该怎么写才比较好呢

虫子樱桃 · 发表于 2012-8-26 11:15:26

帮助中的例子程序

FindAllFile(@ScriptDir)
Func FindAllFile($sDir)
    Local $hSearch = FileFindFirstFile($sDir & "\*.*")
    ; 检查搜索是否成功
    If $hSearch = -1 Then Return
    While 1
        Local $sFile = FileFindNextFile($hSearch)
                ;没有找到就退出
        If @error Then ExitLoop
        
                ;如果找到文件夹
        If @extended Then 
            FindAllFile($sDir & "\" & $sFile)
            ContinueLoop
        EndIf
        FileWriteLine("找到的文件.txt",$sDir & "\" & $sFile)
    WEnd
    ; 关闭搜索句柄
    FileClose($hSearch)
EndFunc

linzhuantu · 发表于 2012-8-26 14:00:00

回复 2# 虫子樱桃

这个程序能找含.inf格式的文件了，返回的是文件的路径，然后最终目的不是要得到文件的路径值，而是要得到路径所在的路径。比如有 D:\text\a.inf，因此上面的函数便会返回D:\text\a.inf，而我们要得到的是D:\text，应该怎么写呢？

netegg · 发表于 2012-8-26 14:21:50

udf区找枚举文件

veket_linux · 发表于 2012-8-26 14:41:42

stringinstr 对D:\text\a.inf从后向前找到第一个 \ 的位置
stringleft 再取这个位置前的也就是 D:\text\a.inf的\a.inf前的、
或者.........
_PathSplit 把路径盘符文件名扩展名拆开

在把你要的东西拼起来

veket_linux · 发表于 2012-8-26 14:42:43

楼主那是什么图？ labview2012？

linzhuantu · 发表于 2012-8-26 14:44:05

回复 4# netegg

请教元老，能否直接给个例子？

afan · 发表于 2012-8-26 15:20:33

回复 3# linzhuantu

Local $sFile = 'D:\text\a.inf'
Local $sPath = StringRegExpReplace($sFile, '\\[^\\]+$', '')
MsgBox(0, $sFile, $sPath)

linzhuantu · 发表于 2012-8-26 15:31:48

回复 9# afan

最终要的到的只是：
      在某个文件夹下寻找是否含有.inf的文件，有则返回这个文件夹（包括子文件夹）的路径

      按上面说的感觉把程序复杂化了

linzhuantu · 发表于 2012-8-26 17:35:18

回复 2# 虫子樱桃

请教高手，我的目的是
在某个文件夹下寻找是否含有.inf的文件，有则返回这个文件夹（包括子文件夹）的路径
是不是有函数可以直接得到数据？
而根据上面各楼，都要先得到.inf的文件路径，再得到.inf文件所在的文件夹路径，感觉程序复杂化了，该怎么办呢

linzhuantu · 发表于 2012-8-26 19:06:55

回复 9# afan

谢谢afan,结合虫子樱桃和你的代码，实在太好了，成功了

xms77 · 发表于 2012-8-26 21:51:15

回复 7# veket_linux
同样好奇楼主的图！

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

[AU3基础] 查找某文件夹下是否有.inf的文件，有则返回文件夹路径，应该怎么写？

本帖子中包含更多资源

相关帖子