[VBS] Errrore apertura file

[Dheed]

Salve (ancora una volta ),ho fatto uno script in vbs con il quale faccio aprire un programma e controllare se c'è un file.
Purtroppo a volte all'apertura dello script mi da un errore(8007002) e mi indica la linea in cui si trova questa riga:

CreateObject("Wscript.Shell").Run "C:\Folder\Data\Temp\Log\scriptc.bat",0

ecco il codice per intero:

CreateObject("Wscript.Shell").Run "C:\Folder\Data\Temp\Log\scriptc.bat",0

const regLink="registro_elettronico.html"

Dim filepath, fileFound, fPath
Dim fileSys, Shell

Set filesys = CreateObject("Scripting.FileSystemObject")
Do
  fileFound = False
  for d=99 to 122
    fpath = chr(d) & ":\" & regLink
    if filesys.fileExists(fPath) then
	  fileFound = true
	  filePath = fPath
    end if	
  next
  if filefound = false then
    mRes = msgBox("Inserire la chiave USB docente", 65, "Registro Elettronico")
    if mRes = vbCancel then
	  WScript.Quit
	end if
  End If
loop until (fileFound = True)

Set shell = CreateObject("WScript.Shell")


Shell.Run Chr(34) & filepath & Chr(34), 1, false

C'è una soluzione?


Inoltre,non essendo molto esperto,vorrei sapere se c'è un modo per aprire una collegamento a internet tramite sempre vbs. :master:
Grazie