VB判斷文件是否存在。

可以使用GetDriveType返回盤符類型，返回值為0-未知磁盤類型；

1-無效磁盤；2-可移動磁盤；3-固定磁盤；4-網盤；5-光驅；6內存

如果不是光驅，做出判斷，復制粘貼下壹段代碼:

私有聲明函數GetDriveType Lib "kernel32 "別名" GetDriveTypeA "(ByVal n drive As String)壹樣長

私有子命令1_Click()

Dim dri作為字符串

dri = "C:\ "

if get drive type(dri)& lt；& gt那就5

if Dir(dri & amp；" 1 . txt ")& lt；& gt”“那就結束吧

如果…就會結束

末端接頭