上面是控制項的寫法,可能不是你要的,試試下面的
On Error Resume Next
ChDrive "a:"
If Err.Number > 0 Then
ChDrive "c:"
End If
--
有空可以到我的HomePage
http://www.taconet.com.tw/~Jaric/index.htm
裡頭有每週更新一次的VB筆記本(Last Update 10/18/97)
還有台灣科技大學化工系三年級學生可能需要的
化學技術實習 數據處理系統
--
※ 來源:台灣科技大學BBS(bbs.et.ntust.edu.tw) ◆來自: 140.118.31.156