vbs 删除文件.

news/2024/11/24 9:03:10/

Dim   oFSO,a,b,fs
SET   b=WSCRIPT.CreateObject("WSCRIPT.SHELL")
   b.POPUP("确定要删除C盘1.txt文件？")
    On   Error   Resume   Next

Set   oFSO   =   CreateObject("Scripting.FileSystemObject")

Set   a   =   fso.GetFile("c:/1.txt")

oFSO.DeleteFile("c:/1.txt")

Set   oFSO   =   Nothing

b.POPUP("此文件已经删除!")

想加一个判断是否有文件存在.思考中

http://www.ppmy.cn/news/740608.html

vbs复制自身到启动文件夹

dim fso set fsoCreateObject("scripting.FileSystemObject") set Wsh WScript.CreateObject("WScript.Shell") pathname Wsh.SpecialFolders("startup")"\" 获取启动文件夹 fso.GetFile(WScript.ScriptFullName).Copy(pathname&am…

VBS的加密跟解密

VBS加密: 复制以下代码，用记事本另存为，“VBS加密” 保存。 set fsocreateobject("scripting.filesystemobject") scfinputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs") set opfso.opentextfile(sc…

VBS下载文件

把以下代码存成.VBS，然后在命令行里调用。参数为：网址本地文件 dim url dim file Set objArgs WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename") Else url objAr…

整人的vbs文件

桌面创建一个text文件 msgbox("你是sb么")xmsgbox("你是sb么",VbOkCancel) if xVbOk then msgbox("你很机智") elseif xVbCancel then msgbox("再见") set ws createobject("wscript.shell") ws.run"cmd.exe /c …

使用vbs下载文件

说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码： iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))Set xPost=createObject("Microsoft.XMLHTTP")xPost.Open "GET",iRemote,0xPost.Send()set sGet=creat…

vbs查找文件中的内容

把文本文件处理为数组，每行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种，使用instr 这种方式好像对文件格式…

VB6下如何获得硬盘序列号

硬盘序列号获得可以通过WMI获取，但是实际上在win7以上没问题，在winxp下就没法使用。因此可以通过API编程来实现读取硬盘序列号，以下程序来源于网络，在winxp下可以正确获得，但在win7和win10下均无法获取： …

VB6的文件操作

总结一下VB6的文件操作，省得要用的时候又到处查找。一、文件类型 1、顺序文件（文本文件）：以ASCII码形式存放的文件。似乎还有Unicode码存放的，有没有BCD码的呢？ 2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含…

vbs 删除文件.

相关文章