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"
2 choses :d'abord il serait judicieux de mettre un set Fsys = NOTHING à la fin du code pour supprimer l'objet scripting de la mémoire ( on libère toujours un objet lorsque l'on en a plus besoin ).et, VB possède déja ce qu'il faut pour travailler sur les fichiers open, input, output,... ( voir l'aide VB pour les détails ) alors pourquoi utiliser du vbscript ?
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...
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).
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
nickel ....moi je suis a la recherche d'infos pour la gestion de fichiers en Vb purj'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 bytedim total as longopen fic for binary access read lock read write as #1total=0do while not eof(1) input #1,i total = total + ilooplabel1.caption = fic & " : " & totalla methode est simple, pas forcemment sure, mais ca peux toujours aider ...le probleme : des fois, ca affiche toujours total = 0des fois, ca me dis que je depasse la fin du fichier alors que je protege avec le eof(1) ...si vous avez des idees ...
C'est fou ce qu'on peut faire en quelques lignes !
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 181 membres 209 nouveaux aujourd'hui 16 152 membres club