本帖最后由 leon460 于 2011-3-24 21:06 编辑 #include <date.au3>
Opt("TrayIconHide",1) ;0:show the tray 1:Hides the AutoIt tray icon
$i=1
Do
Sleep(500) ;以防不设$movetime 引起程序占用太多时间
Dim $szDrive, $szDir, $szFName, $szExt, $MaxNum = 0, $exeName, $workDir
$source = IniRead($szDrive & $szDir & "setting.ini", "key","source","Not Found source path")
$target = IniRead($szDrive & $szDir & "setting.ini", "key","target","Not Found target path")
$movetime=IniRead($szDrive & $szDir & "setting.ini", "key","movetime","Not Found setting time")
If FileExists($source & "\*.tff" ) then
$moveflag=FileMove($source,$target,1)
If $moveflag=0 Then
$file=FileOpen(@DesktopDir & "\movefile.txt",9)
FileWrite($file,_Now() & " 复制测量数据错误,请检查 " & $source & " or " & $target & " 是否设置正确 " & @CRLF)
FileClose($file)
EndIf
EndIf
Sleep($movetime)
Until $i=0
|