dim wshshell,fso
set wshshell = wscript.createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
source=fso.buildpath(fso.getspecialfolder(0) ,"notepad.exe")
target=fso.buildpath(wshshell.specialfolders(4),"notepad.exe")
fso.getfile(source).copy(target)
wscript.sleep 1000
wshshell.popup "複製『記事本』到桌面-(複製檔案)。",5,"這是個結束程序刪除檔案的例項-qq25926183",0+64
wshshell.run (chr(34)&target&chr(34))
wscript.sleep 1000
wshshell.popup "執行『記事本』在桌面-(建立程序)。",5,"這是個結束程序刪除檔案的例項-qq25926183",0+64
for each ps in getobject _
("winmgmts:\\.\root\cimv2:win32_process").instances_
if lcase(ps.name)="notepad.exe" then
wshshell.run ("ntsd -c q -p "&ps.handle), vbhide
wshshell.popup "關閉『記事本』在任務-(結束程序)。",5,"這是個結束程序刪除檔案的例項-qq25926183",0+64
wscript.sleep 1000
fso.deletefile ps.executablepath
wshshell.popup "刪除『記事本』從桌面-(刪除檔案)。",5,"這是個結束程序刪除檔案的例項-qq25926183",0+64
end if
next
set wshshell = nothing
set fso = nothing
wscript.quit(0)
vbs檔案操作指令碼例項
vbs檔案操作指令碼例項 2009年11月04日 星期三 11 03 2009年10月23日 下午 02 45 1.建立乙個新的文字檔案，如果檔案已經存在則報告錯誤 rem 在當前盤根目錄下建立 測試.txt 並寫入乙個字串 vbs dim fso,file,filename vbs filenam...
VBS和bat批處理逐行讀取檔案例項
首先是批處理的，很簡單，每隔兩秒鐘讀取一行。複製 如下 echo off for f tokens i in lrbf.ini do echo i ping n 2 127.1 nul pause 更直觀的 複製 如下 for f delims i in file.txt do echo i 程式設...
Python 萬用字元刪除檔案的例項
例項如下所示 coding utf 8 使用萬用字元，獲取所有檔案，或進行操作。import glob import os def filwww.cppcns.comes curr dir ext exe 當前目錄下的檔案 for i in glob.glob os.path.join curr d...