Ok To Overwrite : MsgBox « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. MsgBox

Ok To Overwrite

 
Function OkToOverwrite(sFullName As String) As Boolean 
    Dim sMsg As String 
    Dim nButtons As Long 
    Dim nResponse As Long 
    Dim bOverwrite As Boolean 

    bOverwrite = False 

    sMsg = sFullName & " already exists.  Do you want to overwrite it?" 
    nButtons = vbYesNoCancel + vbExclamation + vbDefaultButton2 

    nResponse = MsgBox(sMsg, nButtons, "Overwrite File?") 

    If nResponse = vbYes Then 
        bOverwrite = True 
    End If 

    OkToOverwrite = bOverwrite 
End Function 

 

Related examples in the same category