excel VBA 獲取和設(shè)置（文件和文件夾屬性）

excel VBA 獲取和設(shè)置（文件和文件夾屬性）

Sub createfolder()‘******檢查文件夾是否存在******‘******如果不存在，就新建文件夾******‘******并設(shè)置屬性為隱藏******

‘設(shè)置屬性：setAttr 文件(或文件夾) , 屬性

‘獲取屬性：getAttr 文件(或文件夾) , 屬性

‘******引用Microsoft Scripting Runtime******

Dim datafolder As StringDim chfolder As ObjectSet chfolder = CreateObject("scripting.filesystemobject")datafolder = ThisWorkbook.Path & "\數(shù)據(jù)庫備份\"If Not chfolder.FolderExists(datafolder) Thenchfolder.CreateFolder (datafolder)SetAttr datafolder, vbHidden + vbReadOnlyMsgBox "The folder " & datafolder & " was created!"End If

‘******文件和文件夾屬性******‘常量 數(shù)值 屬性名稱‘vbNormal 0 普通文件（無其他屬性）‘vbReadOnly 1 只讀，不可修改‘vbHidden 2 隱藏‘vbSystem 4 系統(tǒng)文件‘vbDirectory 16 目錄‘vbArchive 32 存檔‘****************************End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。