皮皮网
皮皮网
魔灵召唤2源码

【stl源码剖析list】【软件商店web源码】【山东辽宁源码】易语言删除文件源码_易语言删除自身文件

时间:2024-12-24 08:58:16 分类:热点 编辑:html5源码 源码街
1.用易语言做一款根据文件名复制移动删除的易语言删语系统?
2.怎么用易语言来删除硬盘D里的所有文件?代码怎么写?

易语言删除文件源码_易语言删除自身文件

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

       以下是一个使用易语言编写的根据文件名复制、移动、除文删除文件的码易stl源码剖析list简单示例程序:

       ```

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

       '文件复制函数

       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自身软件商店web源码n

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

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

        If MoveFile(srcFile, dstFile) = 0 Then

        Print "文件移动成功。"

        ElseIf MoveFile(srcFile,文件山东辽宁源码 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)

本文地址:http://04.net.cn/news/63d62599311.html

copyright © 2016 powered by 皮皮网   sitemap