|
发表于 2012-5-13 19:20:25
|
显示全部楼层
$hSearch = FileFindFirstFile(@DesktopDir & "\*.lnk")
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop;;;;;;;
$FilePath = FileGetShortcut(@DesktopDir & '\' & $sFile)
;If Not StringCompare($FilePath[0], "C:\Program Files\Tencent\QQ2011beta\Bin\QQ.exe") Then
If $FilePath[0] = "C:\Program Files\Tencent\QQ2011beta\Bin\QQ.exe" Then
IF Not StringInStr(FileGetAttrib(@DesktopDir & '\' & $sFile), "H") Then
FileSetAttrib(@DesktopDir & '\' & $sFile, "+H")
EndIf
EndIf
sleep(100)
Wend
;;; $FilePath[0] = "C:\Program Files\Tencent\QQ2011beta\Bin\QQ.exe"
;;; 这样也是可以的
;;; 问题应该是由于 FileFindNextFile出错时 $sFile 不是文件名 而是空字符串
;;; 进一步导致FileGetShortcut出错,返回值 不是数组 |
|