
CODE: [Copy to clipboard]On Error Resume Next
filespec="G:\2\IpConv\ip.txt"
Set myFso=CreateObject("Scripting.FileSystemObject")
getfso=filespec
If myFso.FileExists(getfso)=True Then
wscript.echo getfso & " 存在"
Else
wscript.echo "文件或文件夹不存在"
End If
Set myfso=Nothing
CODE: [Copy to clipboard]On Error Resume Next
filespec = "d:\sources.list"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Err.Clear
Set myFile = myFSO.OpenTextFile(filespec,1)
If Err Then
WScript.Echo Err.Description
Err.Clear
Else
WScript.Echo "OK!"
End If
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |