as86455011 发表于 2009-1-24 11:29:32

关于 文件搜索

假如我在C:\windows (@windowsdir)里面搜索很多 Dll 和 EXE 文件(这些文件是指定文件的,非*.dll & *.exe)

搜索了,然后将他们复制到某个文件夹进行修改.

这个脚本该怎样写呢??:face (29):

[ 本帖最后由 as86455011 于 2009-1-24 12:03 编辑 ]

大绯狼 发表于 2009-1-24 11:43:36

Func Search($current, $ext)
      Local $search = FileFindFirstFile($current & "\*.*")
      While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."Or $file <> "..") Then
                        If $file=你要找的文件 Then
                              复制到别的地方
                                                                修改
                        EndIf
                EndIf
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."Or $file <> "..") Then
                        Search($current & "\" & $file, $ext)
                                EndIf
      WEnd
      Return
EndFunc   ;==>Search

as86455011 发表于 2009-1-24 12:04:18

谢谢楼上的那位兄弟~:face (36):

872777825 发表于 2012-5-17 19:33:11

很强大   暴力
页: [1]
查看完整版本: 关于 文件搜索