Opération basique sur fichier en vbs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 36 233 fois - Téléchargée 57 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
-
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
-
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
-
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
-
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
6 -
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

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.