mdlfile.bas

来自「visual basic课程设计案例精编」· BAS 代码 · 共 21 行

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