02/03/09 11:56
Jeremy
Postato originariamente da sps84:
dopo else avevo messo la funzione scrivi(linea) ma non funzionava anche se la funzione era scritta carettamente...
dopo else avevo messo la funzione scrivi(linea) ma non funzionava anche se la funzione era scritta carettamente...
Ti rispondo insistendo solo perchè temo di non essermi spiegato bene.
Quello che intendo io è questo:
Private Sub scrivi(ByVal line As String) Dim filemancante As System.IO.StreamWriter If My.Computer.FileSystem.FileExists("File_mancante.txt") Then filemancante = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\File_mancante.txt", True) filemancante.WriteLine(line) filemancante.Close() Else ------------> Messagebox.show("File non trovato") End If End Sub
In questo modo ti accorgerai che questa condizione
If My.Computer.FileSystem.FileExists("File_mancante.txt") then
ti restituirà sempre False perchè è sbagliato il percorso di "File_Mancante.txt"
Ed è per quello .... solo per quello .... che non funziona.
Facci sapere...
Ciao
aaa