第一次修改： 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("请重启机器!")
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
