module2.bas

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

Attribute VB_Name = "Module2"
'调用拷贝文件的声明
Public Type SHFILEOPSTRUCT
     hwnd As Long
     wFunc As Long
     pFrom As String
     pTo As String
     fFlags As Integer
     fAnyOperationsAborted As Boolean
     hNameMappings As Long
     lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1

'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4
'调用上网文件的声明
Public Declare Function ShellExecute Lib _
     "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hwnd As Long, ByVal lpOperation _
     As String, ByVal lpFile As String, ByVal _
     lpParameters As String, ByVal lpDirectory _
     As String, ByVal nShowCmd As Long) As Long

'调用上网文件声明结束
'调用发邮件声明
Public Const SW_SHOW = 5

'调用发邮件声明结束
Public Sub Frmxzczz()
If Frmxzcz.Option3 = True Then
Frmxzcz.Drive1.Enabled = False
Frmxzcz.Dir1.Enabled = False

ElseIf Frmxzcz.Option5 = True Then
Frmxzcz.Drive1.Enabled = True
Frmxzcz.Dir1.Enabled = True
End If
End Sub