Geen cache-versie.
Caching uitgeschakeld. Standaardinstelling voor deze pagina:ingeschakeld (code LNG204)
Als het scherm te langzaam is, kunt u de gebruikersmodus uitschakelen om de cacheversie te bekijken.
Copie de fichiers (VBScript)
Le script suivant copie le fichier C:\test.txt vers C:\test2.txt
Code VisualBASIC ou VBA ou VBS (script vbs : copie un fichier) (7 lignes)
Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("C:\test.txt") Then objFSO.CopyFile "C:\test.txt" , "C:\test2.txt" Else MsgBox "Fichier C:\test.txt introuvable", vbExclamation End If Set objFSO = Nothing
Procédure pas à pas
Nous devons d'abord créer une instance de l'objet Scripting.FileSystemObject, et l'assigner à objFSO (nom que nous déterminons à notre guise).
Nous devons tester si le script peut trouver le fichier à l'adresse indiquée.
Nous pouvons aussi tester de cette manière :
Dans ce cas, si le fichier n'est pas trouvé, nous pouvons effectuer certaines actions.
Dans le cas où le fichier est présent, nous le copions au même endroit en le renommant test2.txt
Nous pouvons à présent libérer l'objet objFSO.
Variantes: avec une fonction vbs
Ici, nous travaillons avec une fonction.
Les fichiers de source et de destination sont passés en argument, ce qui rend le code plus évolutif : vous pouvez par exemple faire un appel de cette fonction après avoir demandé à l'utilisateur quels sont les fichiers source et destination.
Nous pouvons aussi remarquer la déclaration de la constante OverwriteExisting, qui argumente ensuite objFSO.CopyFile pour déclarer que si le fichier de destination existe, il sera écrasé.
Nous pouvons réaliser un copier/coller du script dans un fichier texte dont nous aurons renommé l'extension en .vbs.
Nous remarquons que l'appel de la fonction se fait à la suite du code, et que les paramètres ne sont pas encadrés par des parenthèses.
Code VisualBASIC ou VBA ou VBS (script vbs : copie un fichier par une fonction) (11 lignes)
Function FileCp (strSourceFile, strTargetFile) Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FileExists(strSourceFile) Then MsgBox "Fichier " & strSourceFile & " introuvable", vbExclamation Exit Function End If objFSO.CopyFile strSourceFile , strTargetFile, OverwriteExisting Set objFSO = Nothing End Function FileCp "c:\test.txt", "c:\test2.txt"
Nederlandse vertaling
U hebt gevraagd om deze site in het Nederlands te bezoeken. Voor nu wordt alleen de interface vertaald, maar nog niet alle inhoud.Als je me wilt helpen met vertalingen, is je bijdrage welkom. Het enige dat u hoeft te doen, is u op de site registreren en mij een bericht sturen waarin u wordt gevraagd om u toe te voegen aan de groep vertalers, zodat u de gewenste pagina's kunt vertalen. Een link onderaan elke vertaalde pagina geeft aan dat u de vertaler bent en heeft een link naar uw profiel.
Bij voorbaat dank.
Document heeft de 11/06/2004 gemaakt, de laatste keer de 26/10/2018 gewijzigd
Bron van het afgedrukte document:https://www.gaudry.be/nl/vbs-copie-fichier.html
De infobrol is een persoonlijke site waarvan de inhoud uitsluitend mijn verantwoordelijkheid is. De tekst is beschikbaar onder CreativeCommons-licentie (BY-NC-SA). Meer info op de gebruiksvoorwaarden en de auteur.