Code pour débutant .vbs écriture de fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 059 fois - Téléchargée 30 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
Messages postés
8
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
29 octobre 2003

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

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 ...
Messages postés
77
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
24 août 2005

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
Messages postés
15
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
18 octobre 2004

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).
Messages postés
8
Date d'inscription
mercredi 1 octobre 2003
Statut
Membre
Dernière intervention
20 octobre 2003

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.