D:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1目錄下
在frmSetup1.frm的
Private Sub Form_Load()中
If gstrAppExe <> "" Then
Dim strPerAppPath As String
strPerAppPath = ReadIniFile(gstrSetupInfoFile, gstrINI_SETUP, gstrINI_APPPATH)
AddPerAppPath gstrAppExe, gsDest.strAppDir, strPerAppPath
If checkFileExist(gsDest.strAppDir + "\Input") = False Then
MkDir gsDest.strAppDir + "\Input"
End If
If checkFileExist(gsDest.strAppDir + "\Link") = False Then
MkDir gsDest.strAppDir + "\Link"
End If
If checkFileExist(gsDest.strAppDir + "\Output") = False Then
MkDir gsDest.strAppDir + "\Output"
End If