[VB6] Creare o modificare un file di testo (.txt)

[chicco83]

Salve a tutti vorrei creare un programma in Visual Basic che cerca se esiste un file txt, se esiste vi inserisca una stringa al fondo del file, se non esiste crea un nuovo file e vi scrive all'interno. Vi faccio vedere ciò che ho scritto io che funziona però solo se il file non esiste

Public Sub Main()
 	Dim objTextFile
 	' Definisco una variabile contenente il file da verificare
 	Dim mioFile
 	mioFile = "C:/prova/file.txt"
  	' Definisco e creo l'oggetto FileSystemObject
 	Dim objFile 	Set objFile = CreateObject("Scripting.FileSystemObject")
  	' Verifico con FileExist se il file esiste
 	If objFile.FileExists(mioFile) Then
   		Set objTextFile = objFile.OpenTextFile(mioFile)
 	Else
 		Set objTextFile = objFile.CreateTextFile(mioFile)
 	End If

  	objTextFile.WriteLine Date()
 	objTextFile.WriteLine Time()
 	objTextFile.WriteLine "-------" 
 	' Faccio pulizia...
        Set objFile = Nothing
 	objTextFile.Close
End Sub

Qualcuno saprebbe aiutarmi non so proprio dove sbattarci la testa... Vi prego è molto urgente. Cosa sbaglio??? Dove sbaglio???

[oregon]

Piu' semplicemente ...

Public Sub Main()
    Dim fh As Integer
    fh = FreeFile
    Open "C:\prova\file.txt" For Append As fh
    Print #fh, Date & vbCrLf & Time & vbCrLf & "-------"
    Close fh
End Sub

[chicco83]

Innanzi tutto grazie mille del super accorpamento del programmino, ora ti chiedo una piccola precisazione se fosse possibile. Questo è il mio programma modificato:

Public Sub Main()
     Dim fh As Integer
     fh = FreeFile
     Dim nomeFile As String
     nomeFile = "C:\prova\" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
     Open nomeFile For Append As fh
     Print #fh, "CODICE: " & STRINGA1 & " - RISULTATO: " & STRINGA2 & " - COPPIA: " & VALORE1 & " - ALTEZZA: " & VALORE2
     Close fh
 End Sub

Se fosse possibile vorrei che lui mi creasse o cercasse la cartella di dove inserire il file facendola decidere all'utente tramite variabile.
Nel senso in una varibile chiamata directory gli dico prova
lui controlla se c:\prova esista se esiste inserisce li dentro il file, se non esiste la cartella la crea e gli inserisce il file, ho letto che esistono due funzioni:
FolderExists(strPath As String) As Boolean
CreateFolder(strPath As String)

ma non riesco a far funzionare il programma se le inserisco in questo modo:

Public Sub Main()
     Dim fh As Integer
     fh = FreeFile
     Dim nomeFile As String
     If (Not FolderExists("C:\prova"))
      	 CreateFolder("C:\prova")
     End If
     nomeFile = "C:\prova\" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
     Open nomeFile For Append As fh
     Print #fh, "CODICE: " & STRINGA1 & " - RISULTATO: " & STRINGA2 & " - COPPIA: " & VALORE1 & " - ALTEZZA: " & VALORE2
     Close fh
 End Sub

perché mi dice "Previsto una matrice già dimensionata" all'altezza di FolderExists("C:\prova")
Come mai cosa sbaglio???

[chicco83]

Che stupido che sono mi ero dimenticato un pezzo ora funziona bastava correggere con questo pezzo

Dim nomeFile, nomeCartella As String
    nomeCartella = "prova"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (Not FSO.FolderExists("C:\" & nomeCartella)) Then
    	FSO.CreateFolder("C:\" & nomeCartella)
    End If

Ed il gioco è fatto, grazie mille oregon sei stato davvero gentilissimo e rapidissimo nella risposta
Ho usato nomeCartella solo perché poi vi verrà passata tramite variabile esterna e quindi basta che poi modifico il nome della variabile e tolgo la dichiarazione iniziale, ma solo così riuscivo a testarla.

[oregon]

Come prima, non e' necessario che usi la CreateObject e l'oggetto FSO.

Molto piu' semplicemente (e con un codice piu' leggero) puoi scrivere

   Dim nomeCartella As String
   nomeCartella = "prova"
   On Error Resume Next
   MkDir "C:\" & nomeCartella
   On Error Goto 0

   ...

e ricorda che scrivere

Dim nomeFile, nomeCartella As String

NON equivale a scrivere

Dim nomeFile As String, nomeCartella As String

[alka]

Originariamente inviato da chicco83
Salve a tutti vorrei creare un programma in Visual Basic che cerca se esiste un file txt, se esiste vi inserisca una stringa al fondo del file, se non esiste crea un nuovo file e vi scrive all'interno.

La versione del linguaggio, visto che qui ne trattiamo molte, va indicata nel titolo.
Questo l'ho corretto io, tienilo a mente per le future discussioni.

Ciao!