textbox

Question

salut a tous je voudrais savoir comment je peut lire un fichier text ds une textbox
et aussi comment je peut faire pour renomer un fichier
merci a tous 
                     ==drpsico==

pcpunch · Answer

Pour ouvrir un fichier dans une textbox :

Open "c:\fichier.txt" For Input As #1
Text1 = Input(LOF(1), 1)
Close #1

Pour renomer un fichier
Name "c:\fichier.txt" as "c:\lalala.txt"

++

drpsico · Answer

o trop simpa merci baucoup
                     ==drpsico==

drpsico · Answer

comment je pe verifier si un disque dur existe si c d: ben je ve que sa senregistre ds d:
merci
                     ==drpsico==

pcpunch · Answer

Pour tester l'existance d'un lecteur :
If Dir("c:\*.*") <> vbNullString Then MsgBox "existe" Else MsgBox "existe pas"

Pour enregistrer text1 dans un fichier

open "d:\fichier.txt" for output as #1
print #1, text1
close #1

++

drpsico · Answer

tu pe me decrire le deroulement du code siteplai
                     ==drpsico==

drpsico · Answer

mes d: il existe pas 
comment je fai pour enregistrer
ds d:
je ve que sa le face tout seul
si c: il existe ben sa neregistre fichier.txt ds c:
mes si il existe pas je ve que sa s'enregistre ds le disque qui existe
merci

                     ==drpsico==

pcpunch · Answer

lol faut tous te faire!!! tu a la solution la il suffit d adapter le code!!!!!!

drpsico · Answer

ok on vas essayer lol
merci

                     ==drpsico==

drpsico · Answer

ouais d'acor mes si le disque c z:
comment je c que c z lol

                     ==drpsico==

pcpunch · Answer

2 secondes je te code ca!!

drpsico · Answer

merci c simpa mes esque je pe mettre plusieur teste les un ds les autre ex: If Dir("c:\*.*") <> vbNullString Then open "c:\fichier.txt" for output as #1 print #1, text1 close #1 Else If Dir("d:\*.*") <> vbNullString Then open "d:\fichier.txt" for output as #1 print #1, text1 close #1 etc.... et esque le teste il faut que je le boucle avec end if ==drpsico==

pcpunch · Answer

Il y a plus simple a ttent 2 sec

pcpunch · Answer

Voila :


Dim Lecteurs() As String
Lecteurs = Split("c,d,e,f,g,h", ",")

For i = 0 To UBound(Lecteurs)
    'test l'existance
    On Error GoTo Suivant 'Si erreur
        'Sinon on ecrit le fichier et on quitte
        Open Lecteurs(i) & ":\fichierSortie.txt" For Output As #1
        Print #1, Text1
        Close #1
    Exit For
Suivant:
'on teste sur le lettre de lecteur suivante
  
Next i


En faite ce code n'est pas de ce qu'il y a de plus clean, mais il fonctionne, ca utilise la gestion d'erreur, si le fichier ne peu etre créer, il essaie du le lecteur suivant du tableau lecteur :
Lecteurs = Split("c,d,e,f,g,h", ",")

Attention si aucun lecteur n'est valide, le fichier ne sera pas créer, mais il serait surprenent que personne ne posséde au moin un c ou un d!!!!

Mais le plus simple serait peu etre d'utiliser le lecteur ou est installé le soft (app.path), afin de stocké le fichier de sortie?????

enfin ++

drpsico · Answer

merci je v voir si sa marche
                     ==drpsico==

drpsico · Answer

dsl mes sa ne mes pas d'erreur mes il ne me cree pas non plus le fichier

Private Sub Command1_Click()
Dim Lecteurs() As String
Lecteurs = Split("c,d,e,f,g,h")

For i = 0 To UBound(Lecteurs)
'test l'existance
On Error GoTo Suivant 'Si erreur
'Sinon on ecrit le fichier et on quitte
Open Lecteurs(i) & ":\f.txt" For Output As #1
Print #1, Text1
Close #1
Exit For
Suivant:
'on teste sur le lettre de lecteur suivante
Next i
End Sub

petetre que c moi qui mal ecrit je c pas mes sa ne cree pas le fichier texte
si tu voi une erreur tu pe me dir ou 

                     ==drpsico==

pcpunch · Answer

c normal lol
fait attention qd tu recopie le code lol

Lecteurs = Split("c,d,e,f,g,h")

c plutot :
Lecteurs = Split("c,d,e,f,g,h", ",")

++

Je donne rarement un code sans l avoir tester!!! et celuila fonctionne si ca ne marche pas verifie ton code
++

drpsico · Answer

ok escuse moi ta reson sa marche dsl
                     ==drpsico==

drpsico · Answer

bon mes merci tout marche super je suis conten grace a toi
lol
merci

                     ==drpsico==

drpsico · Answer

esque c possible d'ouvrir le fichier text ds la textbox a la suite de se qu'il i a deja d'ecrit 
Open Lecteurs(i) & ":\f\fff.txt" For Input As #1
Text1 = Input(LOF(1), 1)
Close #1
je pence que c comme quand on ve ecrire a la suite il faut chenger for input mes je c pas par koi
merci
                     ==drpsico==

pcpunch · Answer

Mode lecture : Input
Mode Ecriture : Output (ecrase le fichier si existant)
Mode ajout : Append(Ajoute a la suite, si inexistant->crée le fichier

voila ++
bon coding

Textbox

20 réponses

Discussions similaires