检查驱动器是否可写windows API函数

Question

你好，如果驱动器是可写的，那么会有任何windows API函数返回。有时驱动器在驱动器下是可见的，但是当试图编程写入它时，它会给你一个msg盒子错误，直到用户按下ok按钮时冻结应用程序。有没有内置的功能，可以检查驱动器是否可写入没有恼人的错误框？

我试图trycopy已经并返回相同的错误MSGBOX :(

谢谢！

Answer 1

尝试调用SetErrorMode(SEM_FAILCRITICALERRORS)防止错误消息框，从弹出。

http://msdn.microsoft.com/en-us/library/ms680621(VS.85).aspx

Answer 2

可以设置对Microsoft脚本运行时的引用。

然后，您可以使用如下代码：

Dim FSO as New FileSystemObject 
Dim clsDrive as Scripting.Drive 

Set clsDrive=FSO.GetDrive("C") 

Drive类具有一个FreeSpace属性，如果驱动器不可写入，则它将为零。

此外还有一个Scripting.Folder类，您可以通过使用具有Attributes属性的FSO.GetFolder（）来使用它，该属性由FileAttribute类型的标志组成。您可以使用如下代码

clsFolder.Attributes And FileAttribute.Readonly检查嗯... ReadOnlyness ;-)

Answer 3

呼叫GetVolumeInformation()并在返回的标志参数检查FILE_READ_ONLY_VOLUME。