Ciao, se può esserti utile, io ho provato in questo modo:
------------
Option Explicit
Dim n As Integer
' Da Progetto\Componenti\Controlli:
' spunta Microsoft Common Dialog Control 6.0, poi Applica e OK
' noterai a sin. tra le caselle degli strumenti una icona "CommonDialog"
' clicca col tasto Sn del mouse e disegnala sul Form;
' ora prima del tuo codice aggiungi le righe con *
' -----------------------
Private Sub Command1_Click()
With CommonDialog1 '*
.FileName = "Risultati.txt" '*
.ShowSave '*
End With '*
' alla apertura della finestra di dialogo puoi scegliere dove salvare il file
Open App.Path & "\Risultati.txt" For Output As #1
For n = 1 To 10
Print #1, n
Next n
Close #1
' e se vuoi anche aprire il file "Risultati.txt" aggiungi queste ulteriori due righe
' ovviamente accertandoti che in C:\ ci sia il programma notepad.exe
Dim Res As Long
Res = Shell("C:\notepad.exe " & App.Path & "\Risultati.txt", 1)
End Sub
-------
Saluti
Sal47
|