🚀 go-pugleaf

Genesio Conti <genesio.conti@virgilio.it> wrote in message
gTzFa.118422$g92.2759849@news2.tin.it...
>
> "Alessio" <@ .it> ha scritto nel messaggio
> news:ABoFa.70335$pR3.1485144@news1.tin.it...
> >
> > 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
> > >
> > >
> > o provato ma non funziona
>
> Non � che per caso prima lo apri con open, ecc ecc., xch� in quel caso un
> file aperto equivale ad un file esistente con len =0 ?
> Se puoi postare un spezzone di codice � meglio...
>
> Genesio
>
>
uso questo codice si ti puo esere di aiuto per risorvermi il problema
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 (*.*)|*.*"
  CommonDialog1.ShowSave

  If CommonDialog1.FileName = "" Then Exit Sub
  Open CommonDialog1.FileName For Output As #1
  Print #1, ChildForms(frm).text1.TextRTF
  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