On Error GoTo Errore
Dim folder As New FolderBrowserDialog Dim RicordaPath As String = "" Dim DirStringa As String If Dir(MyDirPath & "\mypath.ini") <> "" Then FileOpen(1, MyDirPath & "\mypath.ini", OpenMode.Input) RicordaPath = LineInput(1) FileClose(1) Else RicordaPath = "" End If folder.Description = RicordaPath folder.SelectedPath = RicordaPath If folder.ShowDialog = Windows.Forms.DialogResult.OK Then DirStringa = folder.SelectedPath FileOpen(1, MyDirPath & "\mypath.ini", OpenMode.Output) PrintLine(1, folder.SelectedPath) FileClose(1) Else DirStringa = "" End If TextBox1(4).Text = DirStringa |