razc 发表于 2014-5-28 21:58:29

关于查找文件的问题

Local $hSearch = FileFindFirstFile("c:\11\*.*")
If $hSearch = -1 Then
Exit
EndIf

      While 1
                Local $sFile = FileFindNextFile($hSearch)
                               
                If int(FileGetSize($sFile) / 1024 ) >= 5 Then
                                       
               MsgBox(4096, "找到的文件:", $sFile)
   
                        Else
                                                Sleep(100)
                EndIf
                WEnd
               FileClose($hSearch) ; 关闭搜索句柄

没法给整成无限循环啊, 我想的效果是无限循环查找,因为指定目录下的文件会一直在增加,而不是固定的文件。

exit run(@scriptfullpath)   不要这个重启进程的

razc 发表于 2014-5-28 23:29:14

哎又自问自答了

Runs()

Func Runs()
      If MsgBox(4,"跳转演示","跳转吗")=6 Then
                jamp()
      Else
                MsgBox(0,0,"未跳转")
      EndIf
EndFunc

Func jamp()
      MsgBox(0,"已经跳转","已经跳转")
EndFunc
页: [1]
查看完整版本: 关于查找文件的问题