看了你发的帖子，好像你最比较喜欢操作文件哈！

呃，我以为是用FindFirstChangeNotification、FindNextChangeNotification等API来监视文件夹变化的呢。有创意。

[quote]Ps：我不知道如何通过编程直接像WinRAR一样调用文件夹选择程序，我只能使用CommanDiolog控件！[/quote]
给你一个现成的模块，可以调用打开和保存的对话框。
[code=c]
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Const OFN_PATHMUSTEXIST = &H800     '路径必须存在
Private Const OFN_FILEMUSTEXIST = &H1000    '文件必须存在
Private Const OFN_OVERWRITEPROMPT = &H2     '同名文件时提示

'' OPENFILENAME 结构的元素顺序必须按vb6自带的api浏览器里的格式声明。按foxApi V1.5里的声明时出错
Private Type OPENFILENAME

    lStructSize     As Long
    hwndOwner       As Long
    hInstance       As Long
    lpstrFilter     As String
    lpstrCustomFilter As String
    nMaxCustFilter  As Long
    nFilterIndex    As Long
    lpstrFile       As String
    nMaxFile        As Long
    lpstrFileTitle  As String
    nMaxFileTitle   As Long
    lpstrInitialDir As String
    lpstrTitle      As String
    flags           As Long
    nFileOffset     As Integer
    nFileExtension  As Integer
    lpstrDefExt     As String
    lCustData       As Long
    lpfnHook        As Long
    lpTemplateName  As String

End Type

Public Function ShowOpen(ByVal hwndOwner As Long, Optional ByVal strTitle As String = "打开...", Optional ByVal lpstrFilter As String = "All Files(*.*)" & vbNullChar & "*.*" & vbNullChar, Optional ByVal initDir As String = "c:\", Optional ByVal defExt As String = "*.JTF") As String

    On Error Resume Next

    Dim OFName As OPENFILENAME
    OFName.lStructSize = Len(OFName)
    OFName.hwndOwner = hwndOwner
    OFName.lpstrFilter = lpstrFilter
    OFName.lpstrFile = Space$(254)
    OFName.nMaxFile = 255
    OFName.lpstrFileTitle = Space$(254)
    OFName.nMaxFileTitle = 255
    OFName.lpstrInitialDir = initDir
    OFName.lpstrTitle = strTitle
    OFName.lpstrDefExt = defExt
    OFName.flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST

    'Debug.Print OFName.nFileExtension
    If GetOpenFileName(OFName) Then

        ShowOpen = Trim$(OFName.lpstrFile)

    Else

        ShowOpen = ""

    End If

End Function

Public Function ShowSave(ByVal hwndOwner As Long, Optional ByVal strTitle As String = "保存为...", Optional ByVal lpstrFilter As String = "All Files(*.*)" & vbNullChar & "*.*" & vbNullChar, Optional ByVal initDir As String = "c:\", Optional ByVal defExt As String = "*.XMC") As String

    On Error Resume Next
    
    Dim OFName As OPENFILENAME
    OFName.lStructSize = Len(OFName)
    OFName.hwndOwner = hwndOwner
    OFName.hInstance = App.hInstance
    OFName.lpstrFilter = lpstrFilter
    OFName.lpstrFile = Space$(254)
    OFName.nMaxFile = 255
    OFName.lpstrFileTitle = Space$(254)
    OFName.nMaxFileTitle = 255
    OFName.lpstrInitialDir = initDir
    OFName.lpstrTitle = strTitle
    OFName.flags = OFN_OVERWRITEPROMPT
    OFName.lpstrDefExt = defExt
    
    If GetSaveFileName(OFName) Then

        ShowSave = Trim$(OFName.lpstrFile)

    Else

        ShowSave = ""

    End If

End Function
[/code]

谢谢各位！谢谢！六月中旬全面恢复程序研究，现在进入高考最后阶段…

多年项目开发经验,专业做毕业设计等中小型项目开发,熟悉各种数据库操作(sql server ,access ,mysql等),熟练应用VC, Delphi, VB, ASP, C#等开发语言.若有需要请联系QQ: 383147818 加我请注明: pfan项目