Gán thuộc tính cho thư mục trong VB6

Đó hỏi: Em đang học lập trình VB6. Trong chương trình, em tạo thư mục nhưng không biết làm cách nào để thư mục có thuộc tính là "hide" sau khi tạo. Xin e-CHÍP giúp đỡ.

Đây trả lời: Để tạo thư mục, ta dùng lệnh MkDir. Để gán thuộc tính cho tập tin/thư mục, ta dùng lệnh SetAttr. Ngoài ra, để đọc thuộc tính tập tin/thư mục, ta dùng hàm GetAttr. Tôi minh họa tất cả các hàm và lệnh trên thông qua ví dụ sau đây.
Trong VB6, bạn tạo một project mới. Trên form Form1 mặc định, vẽ một text box có tên txtTapTin, một check box có tên chkThuocTinh, sao chép check box này thành một bản dãy (array) gồm 4 check box (có chỉ số từ 0 đến 3), rồi thay đổi thuộc tính Caption lần lượt là: Read Only, Hidden, System, Archive. Bạn vẽ tiếp hai nút lệnh có tên là cmdGet và cmdSet và gõ đoạn mã 1. Xong, bạn nhấn F5 đê thử chương trình. Bạn chú ý: lệnh SetAttr gây ra lỗi nếu tập tin muốn đặt thuộc tính đang được mở.
 

Đoạn mã 1

Sub GetFileInfo(sFile As String)
    Dim sFileAttrib As Long
    Dim sFileInfo As String
    sFileAttrib = GetAttr(sFile)    ‘ Đọc thuộc tính
    ' Tạo chuỗi để thông báo thuộc tính
    If (sFileAttrib And vbReadOnly) = vbReadOnly Then
        sFileInfo = sFileInfo & "Read Only"
    End If
    If (sFileAttrib And vbArchive) = vbArchive Then
        sFileInfo = sFileInfo & " Archive"
    End If
    If (sFileAttrib And vbNormal) = vbNormal Then
        sFileInfo = sFileInfo & " Normal"
    End If
    If (sFileAttrib And vbSystem) = vbSystem Then
        sFileInfo = sFileInfo & " System"
    End If
    If (sFileAttrib And vbHidden) = vbHidden Then
        sFileInfo = sFileInfo & " Hidden"
    End If
    If (sFileAttrib And vbDirectory) = vbDirectory Then
        sFileInfo = sFileInfo & " Directory"
    End If
    MsgBox sFile & " có các thuộc tính sau đây: " & sFileInfo
End Sub
Sub SetFileInfo(sFile As String)
    Dim sFileAttrib As Long
    sFileAttrib = vbNormal   ' Mặc định
    If chkThuocTinh(0).Value Then
        sFileAttrib = sFileAttrib + vbReadOnly
    End If
    If chkThuocTinh(1).Value Then
        sFileAttrib = sFileAttrib + vbHidden
    End If
    If chkThuocTinh(2).Value Then
        sFileAttrib = sFileAttrib + vbSystem
    End If
    If chkThuocTinh(3).Value Then
        sFileAttrib = sFileAttrib + vbArchive
    End If
    SetAttr sFile, sFileAttrib  ‘ Đặt thuộc tính
End Sub
Private Sub cmdGet_Click()
    Dim cTapTin As String
    If IsNull(txtTapTin) Then
         MsgBox "Tên tập tin không có !"
         Exit Sub
    End If
    On Error GoTo err_GetFileInfo
    GetFileInfo (txtTapTin)
    Exit Sub
err_GetFileInfo:
    MsgBox "Không có tập tin/thư mục !"
End Sub
Private Sub cmdSet_Click()
    Dim cTapTin As String
    If IsNull(txtTapTin) Then
         MsgBox "Tên tập tin không có !"
         Exit Sub
    End If
    On Error GoTo err_FileNotFound
    Dim sFileAttrib As Long
    sFileAttrib = GetAttr(txtTapTin)
    GoTo SetThuocTinh
err_FileNotFound:
    If MsgBox("Không có tập tin/thư mục ! Tạo mới?", vbDefaultButton2 + vbYesNo + vbQuestion) = vbNo Then
         Exit Sub
    End If
    MkDir txtTapTin
SetThuocTinh:
    SetFileInfo (txtTapTin)
End Sub

Tự động chạy ứng dụng Access

[Đầu trang]