Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 059 fois - Téléchargée 30 fois
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"
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 ...
surtout s'est bien d'avoir fais le code le plus simple possible sa me permet de tous comprendre
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).
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...
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.