[VB6] Creare e scrivere in un file di testo organizzato secondo un determinato schema

[zorro77]

Salve a tutti
ho la necessità di creare un file txt e scriverci all'interno informazioni riguardanti i file di una directory da me specificata:


filename= " ........" pathname= "..//........"
filename= " ........" pathname= "..//........"
filename= " ........" pathname= "..//........"
filename= " ........" pathname= "..//........"
filename= " ........" pathname= "..//........"


come posso fare?

[Boolean]

il tuo problema è creare il file di testo o rilevare le informazioni dai files, per poi scriverle?

se il tuo problema solo è creare il file di testo, ti basta guardare le istruzioni:

Open #
Print #
Close #

evenutualmente che codice usi per scandire i files all'interno di una directory?

Boolean

[zorro77]

Grazie sempre Boolean ;-)

al momento ho scritto così

Private Sub Command1_Click()
Dim fso, myFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myFile = fso.CreateTextFile(Text1, True)
    
    Dim dirFile As String
    dirFile = Dir$(Text2 & "\")
    
    Do While Len(dirFile)
        myFile.Write ("nomefile='" & dirFile & "' pathname='" & Text2)
        dirFile = Dir$
    Loop
    
    
    
    myFile.Close
End Sub

Unica cosa che non mi mette le singole righe in colonna...come dovrei fare per avere un 'a capo' a fine riga?
Pensi che così può andare bene per creare il file?'

[Boolean]

beh, l'uso del FileSystemObject solo per scrivere un file mi sembra eccessivo, ma se lo usi anche per scandire i files di una directory, può andar bene anche il suo utilizzo per la creazione di files.

per risolvere il problema del ritorno a capo, prova ad usare il metodo

WriteLine

dell'oggetto TextStream, anzichè il Write, quindi:

myFile.WriteLine ("nomefile='" & dirFile & "' pathname='" & Text2)

Boolean

[zorro77]

risolto 'a capo' con & vbCrLf

secondo te "scomodare" il FileSystemObject per creare un file, e scriverci come ho fatto io è lo stesso che usare i comandi che mi hai suggerito tu?