Ciao ragazzi!
Sto cercando di passare da VB6 a VB2008, ma è dura!!!! Sono in difficoltà solo per leggere un file stringa dopo stringa, e salvare queste stringhe... Ma come si fa? E poi esiste in VB 2008 un analogo del Common Dialog di VB6? E come cavolo si chiama? Ho provato a leggere le istruzioni, ma le MSDN mi sembrano una cosa per pochi eletti. Con VB6 bastavano poche righe di codice... ora chi ci capisce qualcosa è bravo!

Per fare qualche esempio semplice, questo codice VB6 come devo riscriverlo in VB2008 perchè mi funzioni?
-----------------------------------------------------------------
Private Sub Command1_Click()

Dim aprofile, linea(5000) As String, x As Integer



aprofile = "c:\windows\desktop\prova.txt"

x = 0

Open aprofile For Input As #1

Do Until EOF(1)

Line Input #1, linea(x)

Text1.Text = Text1.Text + linea(x) + vbCrLf
Q e
Loop

Close #1



End Sub

-----------------------------------------------------------------
Private Sub Command2_Click()

Dim j As Integer
Open scrivoFile For Append As #1

For j = 1 To x

Print #1, linea(x)

Next j

Close #1

End Sub



-----------------------------------------------------------------
Private Sub Command3_Click()

Dim aprofile, scrivoFile As String

' Imposta i filtri per i files

CommonDialog1.Filter = "Tutti i file (*.*)|*.*|File di testo" & _

"(*.txt)|*.txt|File batch (*.bat)|*.bat"



' Specifica il filtro predefinito.

CommonDialog1.FilterIndex = 2

15

' Visualizza la finestra di dialogo Apri.

CommonDialog1.DialogTitle = "APRI IL FILE DA APRIRE"



CommonDialog1.ShowOpen

aprofile = CommonDialog1.FileName

If aprofile = "" Then GoTo 15



10

' Visualizza la finestra di dialogo Salva

CommonDialog1.DialogTitle = "DAI UN NOME AL FILE DA SALVARE"



CommonDialog1.ShowSave

scrivoFile = CommonDialog1.FileName

If scrivoFile = "" Or scrivoFile = aprofile Then GoTo 10



Open scrivoFile For Output As #2



Open aprofile For Input As #1

'continua.....



End Sub

-----------------------------------------------------------------

Aiutatemi RAGA'!!!!!
Sergio