Une TextBox comme nom de fichier.

Question

Salut à tous.

Je voudrais savoir comment faire pour sauvegarder un fichier texte qui porte le nom d'une textbox. Exemple:

Open "z980x.txt" For Output As #1

Je voudrais un truc du genre: 

Open Text1.Text For Output As #1

Ou sinon, comment faire pour renommer un fichier pour qu'il est le meme nom que la textbox:

Name "z980x.txt" as Text1.Txt

Merci d'avance...

nhervagault · Answer

Open Text1.Text For Output As #1

C'est le contenu de la textbox

Open Text1.name For Output As #1

La c'est le nom de la textbox

Mais pour la gestion des fichiers, je te conseille de regarder des file system object qui est plus souple à l'utilisation car l'utilisation des #1 est d'apres moi bien pourrie.

il faut utiliser textstream comme classe en plus
pour lire et ecrire

dim fso as new filesystemobject 
set ts = fso.open("fname.txt",forreading, ....)
ts.write .....
ts.read ...

Have fun

z980x · Answer

Je me suis trompé, ce n'est pas le nom de la textebox que je veux comme nom de fichier, mais son contenu !
D'ou mon exemple précédent.

Sinon pour ca:

il faut utiliser textstream comme classe en plus
pour lire et ecrire

dim fso as new filesystemobject 
set ts = fso.open("fname.txt",forreading, ....)
ts.write .....
ts.read ...

JE N'AI RIEN COMPRIS !

Voila !

nhervagault · Answer

Désolé mais bon pour la gestion de fichier je te conseillais d'utyiliser les filesystemojbjet de visual basic que les #1

Pour lire les fichiers, écrire les fichiers, ..... gerer les repertoires c'est tout.

Sinon je n'est pas compris ce que tu voulais faire.

Open Text1.Text For Output As #1 (cette méthode doit fonctionnée mais elle date de la première mondialez :-)

Avec filesystemobject
Pour ecrire dans un fichier 
1--> Ajouter la reference microsoft scripting runtime menu projet de vb

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Dim fname As String
    fname = "c:	est.txt"
    If Not fso.FileExists(fname) Then
        fso.CreateTextFile (fname)
    End If
    Set ts = fso.OpenTextFile(fname, ForWriting)
    For i = 0 To 10
        ts.WriteLine ("hello world")
    Next
    ts.Close
End Sub

voila je ne pense pas que c'est trop complexe :-)
Je pense que tu as compris now!

J'ai un peu décris l'api de textstream et de fso trop succintement. Désolé.

Une TextBox comme nom de fichier.

3 réponses

Discussions similaires