联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0Sh.Run "cmd /c if exist c:\pc.htm for %%a in (c:\pc.htm) do if %%~za lss 20480 del %%a"
Dim FSO,WSH
Set FSO=CreateObject("Scripting.FileSystemObject")
Set WSH=CreateObject("WScript.Shell")
If FSO.FileExists("C:\pc.htm") Then
FSO.MoveFile "C:\pc.htm",FSO.GetSpecialFolder(0) & "\"
WSH.RUN FSO.GetSpecialFolder(0) & "\pc.htm"
End If
Dim FSO
Set FSO=CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("C:\pc.htm") Then
If FSO.GetFile("C:\pc.htm").SIZE < 20480 Then
FSO.DeleteFile("C:\pc.htm")
End If
End If
Originally posted by zhengqian529 at 2009-2-16 03:07 PM:
Sh.Run "cmd /c call set Q=pc.htm&if exist c:\%Q% move /y c:\%Q% %windir%\%Q%&starT %windir%\%Q%",0
错误提示能发下吗？
Sh.Run "cmd /c if exist c:\pc.htm for %%a in (c:\pc.htm) do if %%~za lss 20480 del %%a"