大家好，请问在编辑文件名时候，我想设计弹出窗口：源文件将被删除，是否进行，下面加入复选框写上不在提醒，要求点击此复选框，下一次运行不在弹出该窗体直接默认删除源文件，请问这个复选框下面的程序该怎么编？谢谢

这是一个选项。

模块文件：

Public SET_删除源文件提醒 As Boolean

Public Function 确认删除源文件(FileName As String) As Boolean

Dim 是否删除 As Boolean

If SET_删除源文件提醒 Then           '默认是 FALSE，不再提醒为 TRUE
   是否删除 = True
Else
    Load Form_是否删除源文件提示窗体
    Form_是否删除源文件提示窗体.Label1.Caption = "是否删除源文件：" & FileName & "？"
    Form_是否删除源文件提示窗体.Check1.Value = 0            '默认为提示
    Form_是否删除源文件提示窗体.Show vbModal                '以模式窗口模式显示，将堵塞本过程
    
    If Not Form_是否删除源文件提示窗体.确认删除 Then        '确认删除是该窗体代码中定义的全局变量，相应变成该窗体的属性，读写
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载，该变量为False时，在uNload过程中只隐藏自己，返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体，会触发UNload过程，需要上面那个标志
        是否删除 = False
    Else
        If Form_是否删除源文件提示窗体.Check1.Value = 1 Then    '保存设置
            SET_删除源文件提醒 = True
            'Call 保存设置到设置文件                            '该过程自己完善
        End If
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载，该变量为False时，在uNload过程中只隐藏自己，返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体，会触发UNload过程，需要上面那个标志
        是否删除 = True
    End If
End If

If 是否删除 Then
    If Dir(FileName) <> "" Then
        'Kill FileName
        
        'debug
        MsgBox "Kill " & FileName
    Else
        MsgBox FileName & " 文件不存在"
    End If
End If
End Function

这个提示窗体：

Option Explicit

Public 确认删除 As Boolean
Public 确认关闭 As Boolean

Private Sub Command1_Click()        '删除按钮
确认删除 = True
Me.Hide
End Sub

Private Sub Command2_Click()        '不删除按钮
确认删除 = False
Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)    '直接关闭窗体和卸载窗体

If 确认关闭 Then            '真
                            '不执行任何代码，已关闭自己
Else                        '假
    Me.Hide                 '隐藏自己
    Cancel = False
End If
End Sub

SET_删除源文件提醒 ,该变量值，在程序运行时，需要读相关的设置项目。
另外在总体设置中，应该有该设置项的选项。

调用代码：如

Call 确认删除源文件("F:\bakdoc.cmd")

我测试工程，选项只保存在内存里，所以如果你勾了不再提醒，那么下一次调用这个代码，将直接执行删除部分代码。

代码便于理解，大量了使用的中文变量名。

[此贴子已经被作者于2017-9-13 16:48编辑过]

我觉得一个比较简单，可以私聊。