怎么用VBS删除指定文件

已举报 回答 关注
怎么用VBS删除指定文件
问在线客服
扫码问在线客服
  • 回答数

    5

  • 浏览数

    7,189

5个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
第一次修改:
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set f1=ofso.GetFile("c:\windows\system32\test.inf")
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP("请重启机器!")

~~~~~~~~~~~~~~
第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile("c:\windows\system32\test.inf")
Set oFSO=Nothing
WSH.POPUP("请重启机器!")

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
测试成功。。。
取消 评论
此次解答不为分,仅为解疑而已
请不要选为采纳,仍支持楼上

对追问解答:
法1:'***改为**
objFSO.copyFile "D:\abc"&eval("n"&j),"D:\123\"
法2:
直接将此vbs文件放入"D:\abc"文件夹中即可

此vbs 未找到有关时间的代码,修改时间,创建时间,访问时间,不知要问的是哪个时间

Set fso= CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("E:\Documents and Settings\Administrator\桌面\新建文件夹\1.txt")
'File 对象的 DateCreated 属性返回该文件夹的创建日期和时间
'File 对象的 DateLastModified 属性返回最后一次修改该文件的日期和时间
'File 对象的 DateLastAccessed 属性返回最后一次访问该文件的日期和时间
MsgBox "创建时间:" & f.DateCreated & vbCrLf & "修改时间:" & f.DateLastModified & vbCrLf & "访问时间:" & f.DateLastAccessed, vbInformation, f.Name & "属性"

dim wsh,objFSO
strFolder = "D:\abc" '将D:\vbs改成你要改的文件所在位置
set wsh=createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
i=1
For Each strFile in colFiles
If Lcase(objFSO.GetExtensionName(strFile)) = "jpg" Then
Execute "n"&i&"=strFile.name"
i=i+1
End If
Next
For j=i-1 To i-4 Step -1
'*****
'**此处加个msgbox eval("n"&j)
'*****显示的只有文件名,当你没有把此vbs放入 "D:\abc"文件夹下时会出现未找到文件错误,因为
'objFSO.copyFile eval("n"&j),"D:\123\"为 objFSO.copyFile 随机.jpg,"D:\123\"
'而 随机.jpg 在"D:\abc"文件夹下,(当你没有把此vbs放入 "D:\abc"文件夹下时)。
'***********************************
'objFSO.copyFile eval("n"&j),"D:\123\"
'**************************************
'***改为**
objFSO.copyFile "D:\abc"&eval("n"&j),"D:\123\"
'或者直接将此vbs文件放入"D:\abc"文件夹中即可
next
Set objFSO = Nothing
取消 评论
用引号引起来是不是就可以包含中文了,我不懂vbs。我是用批处理做的,把删除注册表语句echo到一个临时文件中,再静默导入,还有个判断语句,如果有个存在一个标志文件就导入删除,如果不存在就导入添加的
取消 评论
你的系统是什么?XP、win7?主要是桌面路径不一样
取消 评论
CreateObject("scripting.filesystemobject").DeleteFile "你的程序路径"
::删除程序文件

Option Explicit
Dim VbHide
CreateObject("WScript.Shell").Run "Cmd /c Taskkill /f /im ""cmd.exe""",VbHide
::关闭cmd.exe进程,如果换成qq.exe就可以结束qq的进程,依此类推。
取消 评论
ZOL问答 > 怎么用VBS删除指定文件

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?