Atribut File dan Folder

Berikut ini contoh kode-kode yang digunakan untuk mendapatkan dan mengubah informasi atribut (readonly, hidden, archive, dll) dari File maupun Folder.

[ VB 6.0 ]
 Kode untuk mendapatkan atribut

If (GetAttr("Lokasi File atau Folder") And vbReadOnly) <> 0 Then
'kode jika ber-atribut ReadOnly
End If

Kode untuk mengubah atribut

SetAttr "Lokasi File atau Folder", vbReadOnly Or vbHidden 'set atribut ReadOnly + Hidden

Jika Anda ingin mengubah atribut seluruh File dan Folder dalam suatu Folder tertentu, caranya sebagai berikut :
Tambahkan Reference "Microsoft Scripting Runtime"
Lalu tambahkan Module baru dan ketikkan :

Sub SetAllAttribute(ByVal Fol As Folder, ByVal Att As FileAttribute)
On Error Resume Next
Dim fi As File, fo As Folder

Fol.Attributes = Att
For Each fi In Fol.Files
fi.Attributes = Att
Next

For Each fo In Fol.SubFolders
SetAllAttribute fo, Att
Next
End Sub

Kode untuk menggunakannya :

Dim fso As New FileSystemObject
SetAllAttribute fso.GetFolder("Lokasi Folder"), vbReadOnly Or vbHidden

[ VB .NET ]
Kode untuk mendapatkan atribut

If (GetAttr("Lokasi File atau Folder") And FileAttribute.ReadOnly) <> 0 Then
'kode jika ber-atribut ReadOnly
End If

Kode untuk mengubah atribut

SetAttr("Lokasi File atau Folder", FileAttribute.ReadOnly Or FileAttribute.Hidden) 'set atribut ReadOnly + Hidden

Jika Anda ingin mengubah atribut seluruh File dan Folder dalam suatu Folder tertentu, tambahkan Module baru dan ketikkan :

Sub SetAllAttribute(ByVal Fol As IO.DirectoryInfo, ByVal Att As IO.FileAttributes)
On Error Resume Next
Dim fi As IO.FileInfo, di As IO.DirectoryInfo

Fol.Attributes = Att
For Each fi In Fol.GetFiles
fi.Attributes = Att
Next

For Each di In Fol.GetDirectories
SetAllAttribute(di, Att)
Next
End Sub

Kode untuk menggunakannya :

Dim di As IO.DirectoryInfo
di = FileIO.FileSystem.GetDirectoryInfo("Lokasi Folder")
SetAllAttribute(di, IO.FileAttribute.ReadOnly Or IO.FileAttribute.Hidden)