1.用易语言做一款根据文件名复制移动删除的易语言删语系统？
2.怎么用易语言来删除硬盘D里的所有文件？代码怎么写？

用易语言做一款根据文件名复制移动删除的系统？

       以下是一个使用易语言编写的根据文件名复制、移动、除文删除文件的码易箱包网站源码简单示例程序：

       ```

       '=================文件复制/移动/删除程序=================

       '文件复制函数

       Function CopyFile(srcFile As String, dstFile As String) As Integer

        Dim hFile1, hFile2 As Long

        Dim buffer As String *

        Dim nCount As Long

        hFile1 = Open(srcFile, OPEN_EXISTING, FILE_SHARE_READ, 0)

        If hFile1 = 0 Then

        CopyFile = -1

        Exit Function

        End If

        hFile2 = Open(dstFile, CREATE_ALWAYS, FILE_SHARE_WRITE, 0)

        If hFile2 = 0 Then

        CopyFile = -2

        Close hFile1

        Exit Function

        End If

        Do

        nCount = Read(hFile1, buffer, )

        If nCount > 0 Then

        Write hFile2, buffer, nCount

        End If

        Loop Until nCount <

        Close hFile1

        Close hFile2

        CopyFile = 0

       End Function

       '文件移动函数

       Function MoveFile(srcFile As String, dstFile As String) As Integer

        If FileExists(dstFile) Then

        MoveFile = -1

        Exit Function

        End If

        If CopyFile(srcFile, dstFile) = 0 Then

        Kill srcFile

        MoveFile = 0

        Else

        MoveFile = -2

        End If

       End Function

       '文件删除函数

       Function DeleteFile(fileName As String) As Integer

        If FileExists(fileName) Then

        Kill fileName

        DeleteFile = 0

        Else

        DeleteFile = -1

        End If

       End Function

       '主程序

       Sub Main()

        Dim choice As Integer

        Dim srcFile, dstFile As String

        While True

        Cls

        Color 7

        Print "请选择操作："

        Print "1. 复制文件"

        Print "2. 移动文件"

        Print "3. 删除文件"

        Print "4. 退出"

        Input "请输入选项：", choice

        If choice = 1 Then

        Input "请输入源文件名：", srcFile

        Input "请输入目标文件名：", dstFile

        If CopyFile(srcFile, dstFile) = 0 Then

        Print "文件复制成功。"

        Else

        Print "文件复制失败。删除"

        End If

        Sleep

        ElseIf choice = 2 The自身股票知识网站源码n

        Input "请输入源文件名：", srcFile

        Input "请输入目标文件名：", dstFile

        If MoveFile(srcFile, dstFile) = 0 Then

        Print "文件移动成功。"

        ElseIf MoveFile(srcFile,文件TD趋势线源码 dstFile) = -1 Then

        Print "目标文件已存在，无法移动。易语言删语"

        Else

        Print "文件移动失败。除文"

        End If

        Sleep

        ElseIf choice = 3 The码易n

        Input "请输入文件名：", srcFile

        If DeleteFile(srcFile) = 0 Then

        Print "文件删除成功。"

        Else

        Print "文件删除失败。删除"

        End If

        Sleep

        ElseIf choice = 4 The自身n

        Exit While

        End If

        Wend

       End Sub

       ```

       以上程序实现了文件的复制、移动、文件删除三种基本操作，易语言删语通信源码开发并通过一个简单的除文菜单供用户选择。用户可以根据需要选择不同的码易短信发送代码源码操作，并根据提示输入相应的文件名和目标文件名。程序使用了易语言中的文件操作函数来实现文件操作功能。

怎么用易语言来删除硬盘D里的所有文件？代码怎么写？

       删除所有文件?那为什么要删除呢,干脆格式化就好了!

       以下是代码,直接复制到易语言上粘贴,切勿实机执行,因为会格式化D盘:

       .版本 2

       .DLL命令 格式化磁盘, 整数型, "shell.dll", "SHFormatDrive"

       .参数 hWnd, 整数型

       .参数 Drive, 整数型

       .参数 fmtID, 整数型

       .参数 Options, 整数型

       .版本 2

       .子程序 _按钮1_被单击

       格式化磁盘 (取窗口句柄 (), 3, , 1)