module1.bas

这是一个文件管理器

Attribute VB_Name = "Module1"

Public curName As String    '当前选中的目录名
Public curFile As String    '当前选中的文件
Public waitingCopyFile As String    '待拷贝的文件
Public curDirec As String    '当前选中的目录
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFlagsAndAttributes As Long) As Long