Opération basique sur fichier en vbs

Commenter

Contenu du snippet

Ceci est une présentation du vbs, ajoutez les à votre code

Source / Exemple : 


'Pour copier un fichier précis :
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("C:\fichier.txt")
MonFic.Copy "C:\copie.txt", True
Msg = "fichier.txt copié"
MsgBox(Msg)
 
'Pour supprimer un fichier précis :
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("C:\fichier.txt")
MonFic.delete
Msg = "fichier.txt supprimé"
MsgBox(Msg)
  
'Pour créer un fichier précis :
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\fichier.txt")
Msg = "fichier.txt créé
MsgBox(Msg)
 
'Pour lire un fichier complet précis :
 
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.OpenTextFile("c:\fichier.txt", 1) 
Contenu = MonFic.ReadAll 
Msg = "Le fichier fichier.txt contient : " & Contenu
MsgBox(Msg)
 
'Pour créer et écrire dans un fichier précis
 
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.CreateTextFile("c:\fichier.txt") 
With MonFic
.writeLine "1er ligne" 'Mettre write pour ne pas rajouter des sauts de ligne
.writeLine "2er ligne"
.writeLine "Etc..."
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Krox68)