CodeItBetter Programming Another VB Programming Blog

'Controls - How to Use Open, Save dialog boxes of common dialog control. Notify user if a file already exists.
'Assume form1 is a form having following controls. Set the properties as given below :-
'
'Control Type            Name Property       Caption
'------------            -------------       -------
'1) Command Button       cmdOpen             &Open
'2) Command Button       cmdSave             &Save
'3) RichtextBox          rtbText
'4) Common Dialog        dlgCommon

'Now place the following code in the click event of cmdSave
Private Sub cmdSave_click()
    Dim chs As String
    With dlgcommon
        .cancelerror = False
        .ShowSave
    End With
    If Dir(dlgcommon.FileName) = "" Then
        rtbtext.savefile dlgcommon.FileName
    Else
        chs = MsgBox(dlgcommon.FileName & " already exist do you want to overwrite it", vbYesNo)
        If chs = vbYes Then rtbtext.savefile dlgcommon.FileName
    End If
End Sub
 
'Place the following code in cmdOpen's click event
Private Sub cmdOpen_click()
    Dim chs As String
    With dlgcommon
        .cancelerror = False
        .showopen
    End With
    If dlgcommon.FileName = "" Then Exit Sub
    If Dir(dlgcommon.FileName) = "" Then
        MsgBox dlgcommon.FileName & " does not exist"
        Exit Sub
    End If
    rtbtext.loadfile dlgcommon.FileName
End Sub