MonthCalendar2(destine,2005,7) CategoryWebLogDestine

2005-07-18

여러 프로그램 연결

Dim progList(1) As String
dim FileName as String
Option Explicit

Private Sub cChoose_Click()
 Dim Excu As Long
 Excu = Shell(progList(cChoose.ListIndex)+ FileName , vbNormalFocus)
 
 End
End Sub

Private Sub Form_Load()
 FileName=Command '<===================================== !!! 추가 !!!
 progList(0) = "C:\Progra~1\namo\we.exe "
 progList(1) = "C:\Progra~1\Micros~1\explorer\ie.exe "
 cChoose.AddItem "namo"
 cChoose.AddItem "explorer"
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Unload Me
End Sub