module1.bas

电脑公司硬件销售管理系统

Attribute VB_Name = "Module1"
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:43:59

Option Explicit
Public str1 As String
Public User1 As String
Public TEXTgh As String

Sub Exit_Sub()
    End
End Sub

Sub dataDaoRu()
    Dim fso As New FileSystemObject
    Dim filename As File, sPath, Fname As String
    On Error GoTo fff
    MDIForm1.CommonDialog1.ShowOpen
    MDIForm1.CommonDialog1.Filter = "data (*.bgh)|*.bgh"
    sPath = MDIForm1.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
'统计结果：
'    注释共：1行