mdlfile.bas

采用vb写的资料系统管理器功能特别

Attribute VB_Name = "mdlFile"
Public fso As Scripting.FileSystemObject
Public drvs As Scripting.Drives
Public drv As Scripting.Drive
Public fldr As Scripting.folder
Public fldrs As Scripting.Folders
Public fl As Scripting.File
Public fls As Scripting.Files
Public txt As Scripting.TextStream

Public g_intWho As Integer

Public fldr2 As Scripting.folder


Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
'参数ncmdShow 的值
Public Const SW_SHOWNORMAL = 1