[VB6] Common Dialog e salvataggio con nome

[D team software]

Mi potreste postare il codice per fare salva con nome?vorrei salvare un frm document...

Qualcuno puo aiutarmi?per favore!

[LMondi]

Ma l'uso della ComD o il codice per salvare un file di testo?

[D team software]

Il codice per salvare file di testo di estensione txt e doc

[LMondi]

Prova così:

Dim FileNum As Integer
Dim FileName As String
Dim FileTitle As String
Dim sTar1 As String
 ' Assegna le variabili:
    sTar1 = FrmProva.TxtTestoProva.Text

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 Testo (*.Doc)|"
            .FilterIndex = 1
            .DefaultExt = "txt"
            .InitDir = App.Path & "\DATI\TuaSubCartella\"
            .ShowSave
ErrHandler:
        ' é stato scelto Annulla:
            If Err.Number = 32755 Then
                boolErrAnnCO1 = True
                Exit Sub
                Else: boolErrAnnCO1 = False
            End If
                
            FileName = FrmProva.CommonDialog1.FileName
            FileTitle = FrmProva.CommonDialog1.FileTitle
            FileNum = FreeFile()
            
        ' Visualizza nome e percorso del file in uso nel Titolo della Frm:
            MDIFrm.Caption = " Tua descrizione - " & FrmProva.CommonDialog1.FileName
            
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
        End With
            
        Open FileName For Output As #FileNum
            Write #FileNum, sTar1
        Close #FileNum