[VB6] Funzione Salva Con Nome

[plasticity]

Ho provato a cercare sul forum ma è partito il server...la ricerca non va +!

Sto creando un programma che mi scrive dei file di testo, però adesso è limitato nel fatto che li salva dove dice lui...come potrei far apparire una finestra di dialogo che mi chiede dove salvarlo??? E come lo inserisco nel codice?

Private Sub Command5_Click()

Dim nome_file As String
nome_file = txtNome.Text


On Error Resume Next
Kill "C:\" & nome_file & ".txt"

Open "C:\" & nome_file & ".txt" For Append As #1
Print #1, "Ciao
Close #1

End Sub

[oregon]

Il file viene salvato dove dici tu, o almeno dove dice il tuo programma ...

Prova ad usare il controllo CommonDialog ...

[LMondi]

Devi inserire nella Frm il controllo CommonDialog e poi:

With FrmProva.CommonDialog1
        ' Imposta CancelError su True:
        .CancelError = True
    On Error GoTo ErrHandler
        .DialogTitle = "Selezionare la destinazione del file"
        .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn
        .Filter = "File di programma (*.Txt)|*.Txt|Documenti di Calcolo (*.csv)|"
        .FilterIndex = 1
        .DefaultExt = "Txt"
        ' Imposta il Nome del file in base a quanto digitato nella Controllo TxtBox:
           .FileName = FrmProva.TxtNuovoFile
           .InitDir = strFolderDati & "\ProvaTxt" 'Percorso e nome del file
        .ShowSave
ErrHandler:
        ' é stato scelto Annulla:
        If Err.Number = 32755 Then
            boolErrAnnCL = True
            Exit Sub
            Else: boolErrAnnCL = False
        End If
... ... ...

Questo è ciò che di massima devi fare ed inserire prima di
Open "C:\" & nome_file & ".txt" For Append As #1

[plasticity]

quindi copio e incollo quel codice li, e poi sostituisco c:\ con Commondialog1?

[LMondi]

No, il codice lo devi

inserire prima di 
Open "C:\" & nome_file & ".txt" For Append As #1

ed ancor prima devi inserire il controllo CommonDialog (nell'esempio CommonDialog1). Devi anche adattare il codice con le tue esigenze.