Errore di run-time di Microsoft VBScript

Question

Salve,

Il seguente codice in VBS cerca un file specificato in una cartella specificata e restituisce il percorso completo del file se è stato trovato:

Dim fso, startFolder, fileToFind

'Specificare il nome del file da cercare

fileToFind = "example.txt"

'Specificare la cartella di partenza per la ricerca

startFolder = "C:\"

Set fso = CreateObject("Scripting.FileSystemObject")

'Chiamare la funzione per cercare il file

FindFile fso, startFolder, fileToFind

Sub FindFile(fso, startFolder, fileToFind)

  Dim curFolder, subFolder, file

  Set curFolder = fso.GetFolder(startFolder)

  For Each file In curFolder.Files

    If file.Name = fileToFind Then

      WScript.Echo "Trovato il file: " & file.Path

      Exit Sub

    End If

  Next

  For Each subFolder In curFolder.SubFolders

    FindFile fso, subFolder.Path, fileToFind

  Next

End Sub

L'ho salvato sul Desktop con estensione vbs.

Quando lo seleziono per avviarlo mi compare il seguente errore

Windows Script Host

Riga 12

Carattere 3

Errore: Autorizzazione negata

Codice: 800A0046

Origine: Errore di runTime di Microsoft VBScript

Come posso risolvere?

Carlo - Verona

Answer 1

L'errore "Autorizzazione negata" può essere causato dal fatto che l'utente che sta eseguendo lo script non ha sufficienti autorizzazioni per accedere al file o alla cartella specificati.