Opération basique sur fichier en vbs

0/5 (13 avis)

Snippet vu 36 623 fois - Téléchargée 59 fois

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

Ajouter un commentaire Commentaires
smernouf Messages postés 8 Date d'inscription jeudi 31 janvier 2008 Statut Membre Dernière intervention 2 avril 2008
11 mars 2008 à 11:50
c'est bien ce code la
cs_Maxou1012 Messages postés 13 Date d'inscription samedi 24 février 2007 Statut Membre Dernière intervention 6 février 2008
6 mars 2008 à 12:26
Merci pour la leçon :) des petits détails oubliés, mais c'est bien :)
Je met 8/10
cs_dg69 Messages postés 6 Date d'inscription jeudi 24 novembre 2005 Statut Membre Dernière intervention 29 décembre 2005
7 juil. 2007 à 10:41
Bonjour,
C'est bien lorsque l'on travaille sur un fichier.

Et si l'on veut copier plusieurs fichiers ou un répertoire complet, y a t il une astuce ?

merci
cs_sergiooi Messages postés 53 Date d'inscription vendredi 6 octobre 2006 Statut Membre Dernière intervention 7 octobre 2009
6 avril 2007 à 21:03
Salut! je donne 10 pour ce tuto mais si tu m'explique uns chose. je fais:
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("App.Path" & "\fichier.txt")
MonFic.Copy "C:\copie.txt", True
Msg = "fichier.txt copié"
MsgBox (Msg)

Et j'ai le message: run-time error '53'
file not found
et le "fichier.txt est bien dans le meme répertiore que l'application.
POOOURQUOI???
voilà merci!!
tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
15 juin 2005 à 18:58
Sibelle07 il te suffit simplement de trouver le répertoire ou ce trouve le cmd et de le mettre dans le code...
répertoire:C:/WINDOWS/System32/cmd.exe
Afficher les 13 commentaires

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.