改变文件属性

• 下载source - 13.82 KB

介绍 这是一个简单的VB6应用程序可以改变文件或文件夹的属性和教你如何接受了文件,并从命令行文件。本文的目的是让初学者知道如何创建指向函数和翻译WM_DROPFILES的消息。 接受文件 首先你必须发布一个标志你的窗口,它是接受文件,简单的方法来使用DragAcceptFiles (hWnd, fAccept)。那么你的窗口过程将保留消息WM_DROPFILES包含信息数量的下降文件和每个文件的完整路径。 隐藏,收缩,复制Code

Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long,
    ByVal lParam As Long) As Long
On Error Resume Next
        If uMsg = WM_DROPFILES Then
            On Error Resume Next
            Dim All_Number_Of_Drag_Files As Integer
            Dim Drag_File_Path           As String
            Dim Drag_File_Size           As String
            Dim Numbers                  As Long
            Dim Res                      As String
            All_Number_Of_Drag_Files = DragQueryFile(wParam, -1, vbNullString, 0)
            
            If All_Number_Of_Drag_Files = 1 Then
                Drag_File_Size = DragQueryFile(wParam, 0, vbNullString, 0)
                Drag_File_Path = Space$(255)
                DragQueryFile wParam, 0, Drag_File_Path, (Drag_File_Size + 1)
                Form1.Text1.Text = Drag_File_Path
            Else
                Form2.Show
                Form2.List1.Clear
                For Numbers = 0 To (All_Number_Of_Drag_Files - 1)
                    Drag_File_Size = DragQueryFile(wParam, Numbers, vbNullString, 0)
                    Drag_File_Path = Space$(255)
                    DragQueryFile wParam, Numbers, Drag_File_Path, (Drag_File_Size + 1)
                    If Do_File(True, Drag_File_Path) = True Then Res = 
                        "True : " Else: Res = "False: "
                    Form2.List1.AddItem (Res & Drag_File_Path)
                Next
            End If
        End If
    WindowProc = CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
End Function

改变文件属性 文件属性是: 只读的:这个标志意味着应用程序可以编辑或删除文件或文件夹。隐藏:这个标志意味着文件是无形的对你和windows资源管理器会丢弃它。存档:这个标志意味着硬盘的文件存档。SystemFile:这个标志意味着文件是一个系统文件,是很重要的。 我使用文件系统对象来编辑文件属性,您可以使用API而不是这样的: 隐藏,复制Code

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = &H2000
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000
Public Declare Function SetFileAttributes Lib "kernel32" Alias _
"SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Function SetAttr(ByVal lpFile As String, ByVal Flags As Long) As Boolean
    SetAttr = SetFileAttributes(lpFile, Flags)
End Function 

您可以了解更多关于阅读本文件属性。 最后,我想感谢你阅读我的文章。 历史 2010年2月22日:最初的帖子 本文转载于：http://www.diyabc.com/frontweb/news2415.html