module1.bas

来自「这是一个文件管理器」· BAS 代码 · 共 8 行

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