1.用易语言做一款根据文件名复制移动删除的易语言删语系统?
2.怎么用易语言来删除硬盘D里的所有文件?代码怎么写?
用易语言做一款根据文件名复制移动删除的系统?
以下是一个使用易语言编写的根据文件名复制、移动、除文删除文件的码易c考试源码大全简单示例程序:
```
'=================文件复制/移动/删除程序=================
'文件复制函数
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,文件JS成语接龙源码 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
```
以上程序实现了文件的复制、移动、文件删除三种基本操作,易语言删语短视频列表源码并通过一个简单的除文菜单供用户选择。用户可以根据需要选择不同的码易thinkphp仿dz源码操作,并根据提示输入相应的文件名和目标文件名。程序使用了易语言中的文件操作函数来实现文件操作功能。
怎么用易语言来删除硬盘D里的所有文件?代码怎么写?
删除所有文件?那为什么要删除呢,干脆格式化就好了!
以下是代码,直接复制到易语言上粘贴,切勿实机执行,因为会格式化D盘:
.版本 2
.DLL命令 格式化磁盘, 整数型, "shell.dll", "SHFormatDrive"
.参数 hWnd, 整数型
.参数 Drive, 整数型
.参数 fmtID, 整数型
.参数 Options, 整数型
.版本 2
.子程序 _按钮1_被单击
格式化磁盘 (取窗口句柄 (), 3, , 1)