AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 03:21:51
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OPÉRATION BASIQUE SUR FICHIER EN VBS


Information sur la source

Catégorie :VBScript Classé sous : file, fichier, opération, vbs Niveau : Débutant Date de création : 18/10/2002 Date de mise à jour : 18/10/2002 18:30:06 Vu : 26 450
Auteur : Krox68 Ecrire un message privé
Note :
8,21 / 10 - par 14 personnes
8,21 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

Description

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

Source

  • '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) 
'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)

Commentaires et avis

signaler à un administrateur
Commentaire de Stormy le 18/10/2002 23:47:43

Merci pour ces quelques leçons de VBS très pertinentes. @+
Je donne 7 pour l'effort

signaler à un administrateur
Commentaire de Alain le 19/10/2002 19:12:57

simple efficace, j'aime ! 8

signaler à un administrateur
Commentaire de Sibelle07 le 08/10/2003 21:18:09

Salut ,
Si quelq'un a le truc expret pour ouvrir un fichier par exemple cmd.exe
Merci de me le passer

signaler à un administrateur
Commentaire de kaalii le 28/10/2003 12:00:14

pour ouvrir un fichier, perso, je fait comme ca.
c est surement pas la meilleure methode, mais ca marche plutot bien




Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application")
shell.open "cmd.exe"

signaler à un administrateur
Commentaire de caNar vaDor le 17/03/2004 18:13:42

et si jveu copier un dossier tout entier ??

signaler à un administrateur
Commentaire de Tifortou le 20/04/2004 10:49:57

Merci beaucoup pour ces renseignements

signaler à un administrateur
Commentaire de thepoe le 10/08/2004 14:05:34

Bravo à toi pour cette précision!
Aller à l'essenciel, c'est important. Tu mérites les honneurs.
                                                         Cré@tion (c)

signaler à un administrateur
Commentaire de korbene le 19/01/2005 16:17:02

Je ne comprend pas mon Set FSys = CreateObject("Scripting.FileSystemObject")

ne passe pas j'obtient le message suisvant "un composant activeX ne peut pas créer un objet:'Scripting.FileSystemObject'

pourtant mes decalration sont les meme et en vb sa passe mais pas moyen en vbs
d'ou sa vient????

signaler à un administrateur
Commentaire de tekila_bandita le 15/06/2005 18:58:01

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

signaler à un administrateur
Commentaire de sergiooi le 06/04/2007 21:03:21

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!!

signaler à un administrateur
Commentaire de dg69 le 07/07/2007 10:41:24

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

signaler à un administrateur
Commentaire de Maxou1012 le 06/03/2008 12:26:01 8/10

Merci pour la leçon :) des petits détails oubliés, mais c'est bien :)
Je met 8/10

signaler à un administrateur
Commentaire de smernouf le 11/03/2008 11:50:49

c'est bien ce code la

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

*URGENT* Programme & DLLs en 1 seul file [ par Jo Ace ] Je voudrais réunir mon programme et les DLL de VB en 1 seul fichier en faisant en sorte que quand on ouvre ce fichier mon programme se lance (donc for Comment cacher l'extension des fichier ds un File ListBOX [ par KoZo ] Comment cacher l'extension des fichier ds un File ListBOX.les File List Box affiche tous les fichiers d u nrepertoire.mais comment laisser rien que le Création d'une base de données Oracle dans un fichier vbs [ par Fatma ] Je recherche la dll qui me permettra de créer une base de données Oracle dasn un fichier vbs comme la dll SQLDMO suivante :WScript.createObject("SQLDM fso move file URGENT [ par hujikole ] je n'arrive pas a deplacer un fichier qui se trouve sur un autre ordinateur une erreur me dit "permission refusé" alos que le fichier de l'autre ordin Comment creer un fichier avec l'extention VBS [ par crackenkill ] Comment creer un fichier avec l'extention VBS car des que je la mait manuellement le pc dit qu'il y a un erreur Fichier MP3 en VBS [ par dek ] Salut a tous ceux qui me lironsVoila depuis que j'ai installer visual basic 6 de visual studio j'ai des petits fichiers en VBS et tous mes mp3 se sont J ai un probleme [ par Delpieron ] Voila comme un con j ai clique sur un fichier .vbs et apres cela a commencer un pb assez byzarre dans mon ordi : les fichier jpg et mp3 sont en .mp3.v Access et Resource File [ par AtomixSnake ] Salut,Est-il possible de charger un fichier mdb(Access) depuis un Res(Resource File) et l'utiliser avec la commande "DAO.Workspaces(0).OpenDatabase" p [size=5]LIGNE de commande[/size=5] [ par nilufacou ] Mon application a une ligne de commande comme ci dessous :app.exe ~file$Je voudrais que cette ligne de commande se lance lors d'1 click roit sur 1 fic Appel sub depuis fichier .vbs [ par lesky ] G un PETIT PROBLEME je veux appeler une fonction definit comme ceci : Public Sub CC_InitCortWordDDEMaq(strNomStruct As String)


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.