allora, io uso questo codice :
Private Sub Command1_Click()
Open App.Path & "\database\" & txt1 For Output As #1
Write #1, txt1.Text
Write #1, txt2.Text
Write #1, txt3.Text
Write #1, txt4.Text
Write #1, txt5.Text
Write #1, txt6.Text
Write #1, txt7.Text
Write #1, txt8.Text
Write #1, txt9.Text
Write #1, txt10.Text
Write #1, txt11.Text
Write #1, txt12.Text
Close #1
End Sub
per esportare dei file, cioe' creare xD
pero', se cambio dir al mio programma mi continua a salvare nella dir del progetto, cioe', se faccio aprtire il rpogramma da visual basic mi funziona bene, se faccio partire il programma dal dekstop ad esempio mi continua a salvare i file nella cartella di prima, non so se avete capito , soluzioni? vi prego, e' urgente
Rispondi quotando