首先引用Microsoft Scripting RuntimeDim xs As New Scripting.FileSystemObjectPrivate Sub Command1_Click()
Dim dx As Drive
Set dx = xs.Drives("F") '假设F是你的网络驱动器或者软驱盘符
Debug.Print dx.IsReady
End Sub
Dim dx As Drive
Set dx = xs.Drives("F") '假设F是你的网络驱动器或者软驱盘符
Debug.Print dx.IsReady
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货