文件知识大汇聚

最新推荐文章于 2025-04-10 19:46:38 发布

QQ新用户QQ

最新推荐文章于 2025-04-10 19:46:38 发布

阅读量574

点赞数

分类专栏： VB 文章标签： VB

本文链接：https://blog.youkuaiyun.com/u010388683/article/details/8996633

版权

VB 专栏收录该内容

7 篇文章

订阅专栏

本文详细介绍了如何通过代码实现文件路径管理、系统文件调用、文件复制与删除功能。重点阐述了在C、D、E、F盘间灵活穿梭的技巧，并展示了对特定文件类型的筛选与操作。通过调用Shell命令进行系统文件的调用，实现了对文件的高效管理和使用。此外，还提供了文件复制与删除的功能实现，确保了用户在文件操作过程中的便捷与安全性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们每天点来点去，在C、D、E、F盘中来回的穿越。好像在找什么东西似的。开始以为文件很神秘，不知道奇怪的文件从何方而来，见证奇迹的时刻到来了。

对驱动、目录和文件列表框编写的代码如下。

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            File1.Pattern = "*.*"
        Case 1
            File1.Pattern = "*.txt"
        Case 2
            File1.Pattern = "*.jpg;*.bmp;*.tif"
        Case 3
            File1.Pattern = "*.mp3;*.avi;*.wav;*.dat"
    End Select
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Dir1.Path = "c:\windows"
End Sub

显示文件路径名

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = Drive1.Drive
End Sub

Private Sub File1_Click()
    If Right(Dir1.Path, 1) = "\" Then
        Label1.Caption = Dir1.Path & File1.FileName
    Else
        Label1.Caption = Dir1.Path & "\" & File1.FileName
    End If
End Sub

Private Sub Form_Load()
Dir1.Path = Drive1.Drive
File1.FileName = Dir1.Path
End Sub

调用系统文件

Private Sub Command1_Click(Index As Integer)
    Dim x
    Select Case Index
        Case 0
            x = Shell("D:\qq\QQProtect\Bin\QQProtect.exe", 1)
        Case 1
            x = Shell("D:\qq\QQProtect\Bin\QQProtect.exe", 3)
        Case 2
            x = Shell("D:\qq\QQProtect\Bin\QQProtect.exe", 3)
        Case 3
            x = Shell("D:\qq\QQProtect\Bin\QQProtect.exe", 1)
    End Select
End Sub

Private Sub Command1_Click()
    Dim killedfile As String, xuanzhe As String
    Dim x
    If Right(Dir1.Path, 1) = "\" Then
        xuanzhe = Dir1.Path & File1.FileName
    Else
        xuanzhe = Dir1.Path & "\" & File1.FileName
    End If
    killedfile = xuanzhe
    x = MsgBox("你确认你删除文件吗？", 35, "确认框")
        If x = 6 Then
        Kill killedfile
        MsgBox "确认已删除！"
    End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

文件的复制

Private Sub Command1_Click()
    Dim yuanfile As String, mufile As String
    If Right(Dir1.Path, 1) = "\" Then
        yuanfile = Dir1.Path & File1.Path
    Else
        yuanfile = Dir1.Path & "\" & File1.Path
    End If
    mufile = InputBox("请输入要复制的目的文件", "请输入")
    If mufile <> "" Then
        FileCopy yuanfile, mufile
        MsgBox "复制成功"
    End If

End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub