Creare un nuovo progetto EXE standard in Visual Basic . Aggiungi Microsoft Scripting Runtime al progetto selezionando "progettare", "Riferimenti ", " Microsoft Scripting Runtime " e cliccando su "OK" per salvare e chiudere la schermata .
2
Creare un nuovo oggetto da FileScripting dichiarare una variabile di tipo " Scripting.FileScriptingObject . " Il codice dovrebbe essere simile a :
Dim oFile come New Scripting.FileScriptingObject
Questa riga di codice definisce la variabile denominata " oFile " e creare l' oggetto che può essere fatto riferimento nel codice a seguire .
3
Determinare se il file esiste , codificando " oFile.FileExists ( percorso file ) " dove " percorso file " è il nome completo e il percorso del file . Il risultato di questa funzione è vera o falsa . Se il risultato è vero, allora il file esiste ed è possibile continuare con la funzione di copia . Tuttavia, se il file non esiste , si deve codificare un certo tipo di gestione degli errori .
4
Copiare il file specificato nella variabile " percorso file " in una nuova posizione di codifica questa linea " oFile.CopyFile percorsofile , newloc " dove" newloc "è il percorso della nuova posizione. Un esempio della nuova posizione potrebbe essere " C : \\ CopiedFiles " o "D : \\ Backup ". Il nome del file rimarrà lo stesso all'interno della nuova cartella .
5
Verificare che il file sia stato copiato da sempre utilizzando il metodo " FileExists " . Per verificare che il file specificato nella variabile " percorso file " già copiati nel percorso specificato nella variabile " newloc " , assicurarsi di aver salvato il nome del file singolo ad una variabile distinta . Ad esempio , i " oFile.FileExists ( newloc & filename) " codice restituirà true se il nome del file in " nomefile" è stato copiato con successo nella nuova cartella .
Programmazione © www.354353.com