🚀 go-pugleaf

Genesio Conti <genesio.conti@virgilio.it> wrote in message
TY2Fa.64566$pR3.1385021@news1.tin.it...
>
> "Alessio" <@ .it> ha scritto nel messaggio
> news:hbOEa.99319$g92.2366727@news2.tin.it...
> > o creato un programma compatibile con diversi formato di testo nella
quale
> > devo inserire una modalita di avvertimento che l'utente finale sta per
> > salvare su un file esistente e inserire un messaggio personalizato ( non
> di
> > Windows ) Ad esempio
> > il file Pinco.doc esiste gia sei sicuro di riscriverlo?.
> > o il seguente codice ( dove devo inserire questo tipo di modalita
> > grazie in anticipo per l'aiuto
> >
> > PS: chiedo scusa se non avete capito questo messaggio
>
> Se utilizzi CommonDialog, prima del metodo CommonDialog1.ShowSave, imposta
> il flag
> cdlOFNOverwritePrompt, e ti verr� mostrato il msg " Il file esiste, ecc."
>
> altrimenti prima di salvare il file :
> if Dir$(nome_file_con_path) <> "" then ' il file esiste che facciamo ?
> ...
> end if
>
>
ti do il codice di base

Private Sub mnuSaveAs_Click()
  On Error GoTo SaveCancelled

MDIForm1.CommonDialog1.Filter = "File edit document text(*.edt)|*edt| File
RTF (*.rtf)|*.rtf|File word (*.doc)|*.doc|Tutti i file (*.*)|*.*" (tipi di
file disponibili di salvatagio
  CommonDialog1.ShowSave

  If CommonDialog1.FileName = "" Then Exit Sub
  Open CommonDialog1.FileName For Output As #1
  Print #1, ChildForms(frm).text1.TextRTF (come si desidera salvare il testo
  Close #1
  If NeedSaved(frm) = True Then
    NeedSaved(frm) = False
    ChildForms(frm).Caption = Right$(ChildForms(frm).Caption,
Len(ChildForms(frm).Caption) - 1)
  End If
  ChildForms(frm).Caption = CommonDialog1.FileTitle
  file(frm) = CommonDialog1.FileTitle
  PFile(frm) = CommonDialog1.FileName

SaveCancelled:
End Sub
non capisco dove inserire i nuovi codici ( mi dava errore di sintassi o non
si apriva la maschera di salvatagio)