module1.bas

vb源码

Attribute VB_Name = "Module1"
'Option Explicit
'
'Sub dataDaoRu()
'Dim fso As New FileSystemObject
'Dim filename As File, sPath, Fname As String
'On Error GoTo fff
'Form4.CommonDialog1.ShowOpen
'Form4.CommonDialog1.Filter = "data (*.bgh)|*.bgh"
'sPath = Form4.CommonDialog1.filename
'Set filename = fso.GetFile(sPath)
'Fname = App.Path
'If Right(Fname, 1) <> "\" Then Fname = Fname + "\"
'   Fname = Fname + "data\kji.bgh"
'filename.Copy Fname
'Exit Sub
'fff:
'MsgBox "文件丢失，系统无法运行！", vbOKOnly + 48, "公司管理系统"
'
'End Sub