本帖最后由 czjt1234 于 2012-4-13 14:59 编辑
- Dim fso,yn,ttfile
- Set fso = CreateObject("Scripting.FileSystemObject")
- yn = fso.FileExists("D:\test.txt")
- msgbox yn,64
- if yn then
- set ttfile = fso.GetFile("D:\test.txt")
- ttfile.delete
- end if
复制代码 这样可以删除文件- Dim fso,yn,ttfile
- Set fso = CreateObject("Scripting.FileSystemObject")
- yn = fso.FileExists("D:\test.txt")
- msgbox yn,64
- if yn = 1 then
- set ttfile = fso.GetFile("D:\test.txt")
- ttfile.delete
- end if
复制代码 用 yn = 1 就执行不了了
咋的? |