• 下載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