Code pour débutant .vbs écriture de fichier

0/5 (6 avis)

Snippet vu 11 147 fois - Téléchargée 32 fois

Contenu du snippet

ce code sadresse au débutant pour comprendre comment sa marche...

Source / Exemple :


dim fu
dim ecrire
fu = inputbox ("nomme le fichier que tu veux créer!")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\"&fu&".txt")
With MonFic
ecrire = inputbox ("quesque tu veux ecrire dans: "&fu&".txt")
.writeLine ""&ecrire&""

End With
msgbox "écriture réussite dans le fichier: ""C:\"&fu&".txt"

Conclusion :


bah c pas gros mais me too je suis débutant

A voir également

Ajouter un commentaire Commentaires
cyberdetective06
Messages postés
8
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
29 octobre 2003

29 oct. 2003 à 20:40
C'est fou ce qu'on peut faire en quelques lignes !
kimmelf2
Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005

20 oct. 2003 à 23:52
nickel ....


moi je suis a la recherche d'infos pour la gestion de fichiers en Vb pur

j'ai de "gros soucis" avec ce type de fonctions.

par exemple, j'ai voulu faire une sorte de checksum pour comparer de fichiers binaires de taille identique et d'environ 20Mo (la methode n'est pas la + sure, mais vu la taille des fichiers, y'a peu de chance d'avoir le meme checksum) :

dim i as byte
dim total as long

open fic for binary access read lock read write as #1

total=0
do while not eof(1)
input #1,i
total = total + i
loop

label1.caption = fic & " : " & total

la methode est simple, pas forcemment sure, mais ca peux toujours aider ...
le probleme : des fois, ca affiche toujours total = 0
des fois, ca me dis que je depasse la fin du fichier alors que je protege avec le eof(1) ...

si vous avez des idees ...
arnohoho
Messages postés
77
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
24 août 2005

19 oct. 2003 à 17:37
ce code est super ça faisait longtemps que je voulais enregister du text autrement quand utilisant la fonction savefile du richtextbox
surtout s'est bien d'avoir fais le code le plus simple possible sa me permet de tous comprendre
cs_xlt
Messages postés
15
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
18 octobre 2004

17 oct. 2003 à 19:02
Le vbscript présente l'unique interet de ne pas avoir besoin d'être compilé.
Donc l'intégrer dans du VB permet à un autre utilisateur de tapper du code sans avoir VB (ou de générer un code "automatique" qui varie selon les actions que l'on fait).
franky_cool
Messages postés
8
Date d'inscription
mercredi 1 octobre 2003
Statut
Membre
Dernière intervention
20 octobre 2003

15 oct. 2003 à 18:01
ok premierement merci pour le premier commentaire sa pourra m'aider...

Pour le deuxieme commentaire juste pour te rapeller utiliser du vbs est bcq plus pratique (tu peux faire des scripts juste avec un notepad!)


2k cest mon premier script ici...
Afficher les 6 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.