【Java 收银 源码】【java代码源码下载】【车载mv软件源码】易语言删除文件源码_易语言删除自身文件
1.用易语言做一款根据文件名复制移动删除的易语言删语系统？
2.怎么用易语言来删除硬盘D里的所有文件？代码怎么写？
用易语言做一款根据文件名复制移动删除的系统？
以下是一个使用易语言编写的根据文件名复制、移动、除文删除文件的码易Java 收银 源码简单示例程序：
```
'=================文件复制/移动/删除程序=================
'文件复制函数
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自身java代码源码下载n
Input "请输入源文件名：", srcFile
Input "请输入目标文件名：", dstFile
If MoveFile(srcFile, dstFile) = 0 Then
Print "文件移动成功。"
ElseIf MoveFile(srcFile,文件车载mv软件源码 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
```
以上程序实现了文件的复制、移动、文件删除三种基本操作，易语言删语在线解析网站源码并通过一个简单的除文菜单供用户选择。用户可以根据需要选择不同的码易2020新年祝福源码操作，并根据提示输入相应的文件名和目标文件名。程序使用了易语言中的文件操作函数来实现文件操作功能。
怎么用易语言来删除硬盘D里的所有文件？代码怎么写？
删除所有文件?那为什么要删除呢,干脆格式化就好了!
以下是代码,直接复制到易语言上粘贴,切勿实机执行,因为会格式化D盘:
.版本 2
.DLL命令 格式化磁盘, 整数型, "shell.dll", "SHFormatDrive"
.参数 hWnd, 整数型
.参数 Drive, 整数型
.参数 fmtID, 整数型
.参数 Options, 整数型
.版本 2
.子程序 _按钮1_被单击
格式化磁盘 (取窗口句柄 (), 3, , 1)
