檢查驅動器是否可寫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。