如何批编译VB的工程文件...

Question

工作中.我被分配了近20多个工程文件: 如;
    c:\D26C\
           \D2601\D2601.vbp
           \D2602\D2602.vbp
           \D2603\D2603.vbp
           \D2604\D2604.vbp
           \D2605\D2605.vbp
           \D2606\D2606.vbp
           ...
           ...
           \D2620\D2620.vbp提问:
    如何批编译这些VB工程... ; 请给个思路(解决方案!!!) 

Answer 1

自已写个程序
shell "...\Microsoft Visual Studio\VB98\Vb6.exe /m & "...\工程1.vbp"

Answer 2

对了，shell是异步操作，会引起同时编译多个程序，如果程序很多有可能死机。下面是一个打开WINDOWS扫雷程序的测试程序，在扫雷程序被关闭之前，不会返回。
你可以这个技术一个一个的编译程序。Option Explicit
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Sub Command1_Click()
Dim pId As Long, pHnd As Long ' 分别声明 Process Id 及 Process Handle 变量pId = Shell("c:\windows\winmine.exe", vbNormalFocus) ' Shell 传回 Process IdpHnd = OpenProcess(SYNCHRONIZE, 0, pId) ' 取得 Process Handle
If pHnd <> 0 Then
WaitForSingleObject pHnd, INFINITE ' 等待程序结束
CloseHandle pHnd
End If
End Sub