易语言写的文件粉碎机代码

'文件粉碎机程序

'定义全局变量
Dim dirPath As String '要删除文件的目录路径

'添加目录按钮
Function Button1_OnClick()
    '打开文件夹选择对话框
    dirPath = SelectDir("请选择要删除的文件所在目录：")
    If dirPath <> "" Then
        '显示选择的目录路径
        Label1.Caption = "已选择目录：" & dirPath
    End If
End Function

'粉碎文件按钮
Function Button2_OnClick()
    If dirPath = "" Then
        MsgBox "请先选择要删除的文件所在目录！", 48, "提示"
        Exit Function
    End If
    '遍历目录下的所有文件
    Dim files() As String
    files = ListFiles(dirPath, "*.*", 1)
    If UBound(files) < 0 Then
        MsgBox "目录下没有找到任何文件！", 48, "提示"
        Exit Function
    End If
    '循环粉碎文件
    For i = 0 To UBound(files)
        '打开文件
        Dim fileNum As Integer
        fileNum = OpenFile(files(i), 1)
        If fileNum <= 0 Then
            '无法打开文件，跳过
            Continue For
        End If
        '获取文件大小
        Dim fileSize As Long
        fileSize = GetFileSize(files(i))
        '定义缓冲区
        Dim buffer(1024) As Byte
        '循环写入数据，直到覆盖整个文件
        Dim j As Long
        For j = 1 To fileSize Step 1024
            WriteBytes fileNum, buffer, 1024
        Next
        '关闭文件
        CloseFile fileNum
        '删除文件
        DeleteFile files(i)
    Next
    MsgBox "文件粉碎完成！", 64, "提示"
End Function