免费黄色视频在线观看不卡无码国产一区二区三区_亚洲中文字幕无码中文字 _亚洲国产专区校园欧美_国内自拍真实伦在线视频_国产精品成人观看视频免费

批量修改快捷方式的路徑的VBS腳本

軟件大小：1024 B
更新日期：2008-10-18
軟件語言：簡體中文
軟件類別：VBS/BAT腳本
軟件授權(quán)：共享軟件
軟件官網(wǎng)：未知
適用平臺：Win2003, WinXP, Win2000, NT, WinME
軟件廠商：

10.0分

50% 50%

本地下載文件大?。?024 B 高速下載需下載高速下載器，提速50%

軟件介紹人氣軟件相關(guān)文章網(wǎng)友評論下載地址

為您推薦：VBS/BAT腳本

Option Explicit
Dim oldpath,newpath

''''''''''''''''說明'''''''''''''''''
'作用：批量修改快捷方式的“目標”和“起始位置”
'使用方法：和需要修改的快捷方式放在同一個文件夾執(zhí)行
'''''''''''''''說明完'''''''''''''''''

oldpath = "E:聊天軟件"t '設(shè)置原路徑中將被替換的內(nèi)容
newpath = "D:棋牌聊天" '設(shè)置新路徑中要使用的內(nèi)容

Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ji_1,ji_2,Folder
ji_1 = 0
ji_2 = 0
Folder = Wsh.CurrentDirectory
if Ask("將要修改"&chr(34)& Folder &chr(34)&"里的所有快捷方，是否繼續(xù)") then
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
t ji_1 = ji_1 + 1
t call Doit(f1)
end if
Next
end if

Set WSH = Nothing
msgbox "找到 "&ji_1&" 個快捷方式"&vbCrLf&"修改 "&ji_2&" 個快捷方式",64,"執(zhí)行完畢!"
WScript.quit

Sub Doit(strlnk)
Dim oShlnk
Set oShlnk = Wsh.CreateShortcut(strlnk)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.TargetPath = Replace(oShLnk.TargetPath,oldpath,newpath)
oShLnk.WorkingDirectory = Replace(oShLnk.WorkingDirectory,oldpath,newpath)
oShLnk.Save
ji_2 = ji_2 + 1
End If
Set oShLnk=NoThing
End Sub

Function Ask(strAction)
Dim intButton
intButton = MsgBox(strAction,vbQuestion + vbYesNo,"詢問")
Ask = intButton = vbYes
End Function