SET MyShell = Wscript.CreateObject("Wscript.Shell")
SET MyFiles = CreateObject("Scripting.FileSystemObject")
Set AppShell = CreateObject("Shell.Application")
on error resume next
set args = WScript.Arguments
if args.Count=0 then
AlleEntfernen
else
for x=0 to args.count-1
err.clear
set temp=MyFiles.Getfolder(args(x))
if err.number=0 then
ok = ok + 1
drop(ok)=args(x)
end if
next
end if
on error goto 0
if ok=0 then
msgbox "pcwVLink p°ijφmß pouze slo₧ky.",," pcwVLink: Chyba"
wscript.quit
end if
for x=1 to ok
if instr(drop(x),".{000") then
ldrop=ldrop+1
DroppedLink(ldrop)=drop(x)
else
fdrop=fdrop+1
DroppedFold(fdrop)=drop(x)
end if
next
for x=1 to ldrop
EintragEntfernen DroppedLink(x)
if x=ldrop then
if Del_list="" then
msgbox counter & " VLink(y) byly (logicky) odstran∞ny. " & chr(13) & "Slo₧ka(y) VLink byla(y) prßzdn(ß)Θ a proto byly odstran∞ny i fyzicky.",, "pcwVLink: Odstranit VLink(y)"
else
msgbox counter & " VLink(y) byly (logicky) odstran∞ny. " & chr(13) & chr(13) & "Nßsledujφcφ slo₧ky VLink nebyly prßzdnΘ, a proto nemohly b²t odstran∞ny: " & Del_List,,"pcwVLink: Odstranit VLink(y)"
end if
end if
next
if fdrop > 0 then
on error resume next
err.clear
Set ziel = Appshell.BrowseForFolder(0, "Vyberte cφlovou slo₧ku pro umφst∞nφ virtußlnφch odkaz∙.", &H0001, 17)
i=instr(ziel,":")
if i>0 then
ziel = mid(ziel,i-1,2)
else
ziel = ziel.ParentFolder.ParseName(ziel.Title).Path
msgbox x & " Nov²(Θ) VLink(y) byly " & ziel & " umφst∞ny." & chr(13) & "Po klepnutφ na OK se zobrazφ v²sledek v Pr∙zkumnφku." & chr(13) & chr(13) & "VLink(y) jsou prßzdnΘ slo₧ky s Class-ID," & chr(13) & "kterΘ pouze odkazujφ na vlastnφ cφlovΘ slo₧ky." & chr(13) & "Pro odstran∞nφ takov²ch slo₧ek pou₧φvejte rovn∞₧ tento skript." & chr(13) & "Odstranφ se tφm definitivn∞ i ·daje v registru.",," pcwVLink: Nov²(Θ) VLink(y)"
