Private Sub Command1_Click()Shell App.Path & "\aaa.bat"End Sub 还有更简单的:Private Sub Command1_Click()Shell "aaa.bat"End Subaaa.bat就是那个BAT的名字. 那就不一定......因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件(包括文件夹)代码:Private Sub Command1_Click()Shell "explore.exe aaa.jpg"End Sub