7        SendTo發送到文件夾

           8        Startup啟動文件夾

           9        Programs程序文件夾

           10       Recent文檔瀏覽的歷史文件夾               

函數二十八:
          IsFolderOrFile(ByVal PathName As String) As Long 
          判斷路徑指向的對象是文件還是文件夾,返回0代表指向的是文件, 返回1代表指向的是文件夾,如果指向的對象不存在,則返回-1

函數二十九:
          Del(ByVal FolFilName As String, ByVal FType As Long) As Boolean 
          刪除文件（夾），支持通配符，FolFilName為路徑文件（夾）名,Ftype為刪除的類型，為0表示刪除文件，為1表示刪除文件夾。
          刪除成功返回true,否則返回false(如要刪除的文件不存在）
          

函數三十：
         Copy(ByVal SourceFolFil As String, ByVal DestFolFil As String, Ftype As Long, Optional ByVal OverWrite = False) As Boolean
         overwrite缺省為不覆蓋,如果為true則是覆蓋目標位置中已有的同名文件(夾）
         sourcefile為要復制的文件（夾）,支持通配符，destfile為復制后的目標位置和文件（夾)名
         Ftype為復制的類型,0為文件,1為文件夾
         復制文件成功返回true ,否則返回false（如目標文件存在且overwrite=false或系統禁止覆蓋)
         
函數三十一：
         Move(ByVal SourceFolFil As String, ByVal DestFolFil As String, Ftype As Long) As Boolean
         移動文件(夾),成功返回true,否則返回false(如目標文件(夾)已存在)
         Ftype為移動的類型,0為文件,1為文件夾
         sourcefolfil為要移動的文件(夾),支持通配符，destfolfil為移動后的目標位置和文件(夾)名
         

函數三十二：
        RenameFile(ByVal filename As String, ByVal NewName As String) As Boolean
        文件改名。filename為要改名的文件，newname為新的名稱。
        修改成功返回true,否則返回false
        如：function1.renamefile "c:\1.txt" "2.txt"

函數三十三：
        CreatNewFile(ByVal filename As String, Optional ByVal OverWrite = False) As Boolean
        建立新的空文本文件,成功返回true,否則返回false,filename為建立文件的存放路徑和文件名稱，
        如果要建立的文件已存在，且OverWrite為true則是覆蓋已有文件，overwrite缺省為false不覆蓋已有文件

函數三十四：
        GetFileCreateDate(ByVal filename As String) As String
        返回文件建立的時間,獲取成功返回文件建立的時間,否則返回空串

函數三十五：
        GetFileLastAcces(ByVal filename As String) As String
        返回文件最近一次訪問的時間,獲取成功返回最近一次訪問的時間,否則返回空串

函數三十六:
        GetFileLastEdit(ByVal filename As String) As String
        獲取成功返回文件最近一次修改的時間,否則返回空串

函數三十七:
        GetFileSize(ByVal filename As String) As Long
        獲取成功返回文件的大小,否則返回-1

函數三十八:
        GetFileType(ByVal Filename As String) As String
        獲取成功返回文件的類型,否則返回空串

函數三十九：
        GetDriIsHave(ByVal DriveName As String) As Boolean 
        判斷驅動器是否存在,存在返回true,否則返回false
        如:if getdriishave("f:")=true then msgbox "存在f盤" else msgbox "f盤不存在"

函數四十:(已合并）
         
    
函數四十一:（已合并）
         

函數四十二:
         RenameFolder(ByVal Foldername As String, ByVal NewName As String) As Boolean
         文件夾改名，用法與文件改名同。

函數四十三：
         CreatNewFolder(ByVal NewFolderName As String) As Boolean
         建立新的空文件夾,成功返回true,否則返回false，如文件夾已存在則返回false

函數四十四：
        GetFolderCreateDate(ByVal Foldername As String) As String
        返回文件夾建立的時間，獲取成功返回文件建立的時間,否則返回空串。

函數四十五：
       GetFolderLastAcces(ByVal Foldername As String) As String
       獲取成功返回最近一次訪問文件夾的時間,否則返回空串

函數四十六：
       GetFolderLastEdit(ByVal Foldername As String) As String
       獲取成功返回文件夾最近一次修改的時間,否則返回空串

函數四十七：
       GetFolderSize(ByVal Foldername As String) As Long
       獲取成功返回文件夾的大小,否則返回-1（如文件夾不存在)

函數四十八：
       GetFolderType(ByVal Foldername As String) As String
       獲取成功返回文件夾的類型,否則返回空串

函數四十九：
       GetDriveSize(ByVal DriveName As String) As Long 
       獲取指定驅動器的總空間大小，參數傳遞錯誤返回-1，否則返回空間大小
       如：call function1.getdrivesize("c:")

函數五十：
      GetDriveFreeSpace(ByVal DriveName As String) As Long 
      獲取指定驅動器的可用的空間數量，參數傳遞錯誤返回-1，否則返回可用的空間大小

函數五十一：
      GetDriveFileSystem(ByVal DriveName As String) As String 
      獲取指定驅動器所使用的文件系統類型。獲取成功，返回文件系統類型，否則返回空串

函數五十二:
      GetDriveSerialNumber(ByVal DriveName As String) As Long 
      獲取成功返回指定驅動器的序列號,否則返回-1

函數五十三：
      GetDriveIsReady(ByVal DriveName As String) As Boolean 
      獲取指定的驅動器是否可用,是否已準備好，是返回true,否返回false

函數五十四：
      GetDriveVolumeName(ByVal DriveName As String) As String 
      獲取成功返回指定驅動器的卷標名，否則返回空串

函數五十五：
       GetDriveType(ByVal DriveName As String) As Long 
       獲取指定驅動器的類型 
       如果驅動器不存在返回-1
       返回1為可移動磁盤
       返回2為本地磁盤
       返回3為網絡盤
       返回4為CD_ROM
       返回5為RAM盤
       返回0為未知類型       

函數五十六：
       CDRomName() As String  
       判斷是否有光驅，有則返回用“\”隔開的所有光驅的盤符，否則返回空串

函數五十七：
       ChangeFolderIcon(ByVal Foldername As String, Optional ByVal IconName As String, Optional Cacel As Boolean) As Boolean
       更改文件夾圖標
       foldername為要更改的文件夾路徑和名稱
       iconname為圖標路徑和名稱       
       若cacel傳遞為true（缺省為false),則是將文件夾恢復成缺省圖標，同時，iconname參數可省略

函數五十八：
       OpenFolFil(ByVal FolFilName As String) 
       
       打開文件夾或用默認的程序打開文件,如是網址則調用瀏覽器打開網頁,視傳遞的參數而定
       注意：如果要打開的是文件夾，請在名稱后面加上一空格
       如：　　　　function1.openfolfil "c:\windows\command "  打開command文件夾
       如果是：　　function1.openfolfil "c:\windows\command"   將打開dos窗口(實際上運行的是command.com這個文件)
     
函數五十九：
       AttribForm(ByVal FolFilName As String) 
       調用系統的的文件、文件夾屬性窗口,查看其屬性

函數六十:
       MouseGetLine(BoxName) As String 
       鼠標在文本框中某一行按下返回這一行的內容，此函數可應用于鼠標的chilk,down,up事件中
       boxname為文本框的名稱

函數六十一:      
       RichLoadPicture(RichName, ByVal PictureName As String) 
       使用此函數令richtextbox文本框可以裝載圖片文件
       裝載成功則文本框顯示裝載的圖片.
       如： function1.richloadpicture(richtextbox1,"c:\1.jpg")
       請注意，若裝載成功，會清空剪貼板的內容

函數六十二:     
       IsPictureFile(ByVal FileName As String) As Boolean 
       判斷一個文件是否為圖像文件（bmp,jpg,gif,pcx,ico），是返回true,如果文件不存在或非圖像文件則返回false       

函數六十三：
       FormatImage(ByVal SourcePictureFile As String, ByVal DestPictureFile As String) As Boolean
       在bmp,jpg,gif,pcx,ico這幾種格式的圖形文件中任意互相轉換
       Sourcepicturefile為要轉換的源文件,destPicturefile為轉換后的路徑和文件名
       轉換成功返回TRUE,否則返回FALSE(如文件不存在)
       如: call formatimage("c:\1.ico","c:\1.bmp")

函數六十四：
       ISLcase(ByVal txt As String) As Long
       判斷某一個字母是否為小寫，是返回1,否則返回2(也即是大寫字母),如果參數傳遞為空串或非字母或長度大于1，則返回0

函數六十五：
       DelStrItem(ByVal Txt As String, Item As Long) As String 
       刪除字符串中指定的第幾個字符.如果txt為空串或item大于txt的長度或item小于1,函數返回空串,且item返回-1
       如: dim i as long,a as string
           i=1
           a=delstritem("abc",i)
           if i=-1 then msgbox "參數傳遞不對" else msgbox a

函數六十六:
       LUcaseStrItem(ByVal Txt As String, Item As Long, Optional Mcase As Boolean) As String
       將字符串中指定的第幾個字符轉為大寫或小寫，如果txt為空串或item大于txt的長度或item小于1,函數返回空串,且item返回-1
       mcase缺省為false，將指定的第幾個字符轉為小寫，如果傳遞為true則轉為大寫

函數六十七:
       MoveCaretToLine(BoxName, ByVal LineItem As Long) As Boolean
       把光標移到文本框的指定行.boxname為textbox或richtextbox文本框的名稱，
       lindeitem為指定的行數，移動成功返回true,否則返回false(如指定的行數超過總行數）

函數六十八：
       OnlyOpenFolder(frm, ByVal Title As String) As String 
       只選擇文件夾，調用此函數顯示只能選擇文件夾的對話框，函數返回選擇的目錄名，如果沒選擇，則返回空串

函數六十九：
       CreateLnkFile(ByVal FilePath As String, Optional ByVal LnkName As String, Optional ByVal ToPath As String) As Boolean
                     
       建立文件(夾)或磁盤的快捷方式。filepath(必要參數)為要建立快捷方式的源文件或文件夾，lnkname為快捷方式的名稱，
       如果省略，則將源文件或文件夾的名稱作為快捷方式的名稱，topath為快捷方式存放的位置，如果省略，則將桌面作為存放路徑
       建立成功返回true,否則返回false
       如：call CreateLnkFile("c:\1.txt")        在桌面建立名稱為1.txt的快捷方式
           CreateLnkFile "c:\1.txt",,"d:\txt"    在d盤txt目錄下建立名稱為1.txt的快捷方式 

函數七十：
       TextUpDown(BoxName, Index As Long) As Boolean 
       調用此函數能使文本框自動翻一頁,index為0則上翻,為1,則下翻,boxname為文本框的名稱

函數七十一： 
       Function Rmid(Txt As String, ByVal First As Long, Optional ByVal Lenght As Long) As String
       從右邊指定位置開始返回指定長度的字符,與vb自帶的mid函數用法一致。
       如：msgbox rmid("abcdefg",2,3)  返回"def"

函數七十二：
       ZipFile(ByVal ZipFolderName As String, FileToZip As String) As Boolean
       文件壓縮函數。
       zipfoldername為壓縮后的文件名稱,如果不存在則建立，請用zip作壓縮文件的擴展名
       filetozip為要壓縮的文件，支持通配符,如果壓縮夾中已存在同名文件，則更新
       壓縮成功返回true,否則返回false
       如：function1.zipfile "c:\text.zip","c:\*.txt"       將c盤根目錄下的所有txt文件壓縮到text.zip中
           
函數七十三：
      ZipExtract( ZipFolderName As String, ExtractFolder As String, ExtractFile As String, Optional Overwrite As Boolean) As Boolean  
      解壓縮函數。
      ZipFolderName為解壓縮源的文件名稱
      ExtractFolder將文件解壓到何處
      ExtractFile要解壓什么文件
      Overwrite如果要解壓的文件在存放位置已存在，是否覆蓋，缺省為false不覆蓋，傳遞為true則覆蓋
      解壓縮成功返回true,否則返回false
      如：zipextract "c:\text.zip", "c:\myfile" , "*.txt" ,true    將壓縮文件text.zip中的所有txt文件解壓到c:\myfile中，并且覆蓋同名文件

函數七十四：
      FindFile(ByVal Spath As String, GetFileName() As String, Optional ByVal FindFileName As String, _
               Optional ByVal CreatTime As String, Optional ByVal FileSize As Long = -1, Optional ByVal StepSize As Long, _
               Optional FolderOrFile As Long, Optional OnlyOneFolder As Boolean) As Long
      
      文件(夾)查找函數。
      
      參數           描述

      spath          必要參數，要查找的路徑

      getfilename    必要參數，必須傳遞為字符型空數組，返回找到的文件名，找到的文件總數由函數本身返回

      findfilename   可選參數，要查找的文件（夾）名，支持通配符

      creattime      可選參數，按文件（夾）建立的時間查找，支持通配符，函數查找格式為"年--月--日 時--分--秒"(日期和時間有一空格)

      filesize       可選參數，按文件（夾）的大小查找,以字節為單位
      注意：         以上三個可選參數至少必須選擇一個,否則無法查找
      
      stepsize       可選參數，按大小查找的伸縮范圍,如缺省則按上一參數傳遞的值精確查找
      
      folderorfile   可選參數，缺省為0只查找文件，為1只查找文件夾，為2兩者全部查找

      onlyonefolder  可選參數，如缺省則查找的范圍包括下級子目錄，如果傳遞為true,則只查找當前目錄,不包括下級目錄

      參數傳遞錯誤函數返回-1
      其它未明錯誤返回-2
      沒找到匹配的文件（夾）返回0
      成功，返回文件（夾）總數和所在路徑名稱

      如:   
          dim getname() as string     '定義一個空的字符型數組作為參數,接收找到的文件路徑名
          dim i as long 
          i= Function1.FindFile("c:\windows\", getname(), "*.exe", "2000-6*", , , 0, True)
          
          for k=1 to i        'i為函數返回的文件總數
              print getname(i)
          next
          '以上為在c:\windows中只查找所有擴展名為exe,建立時間為2000年6月的文件,不包括c:\windows的下級子目錄,

          i=Function1.FindFile("c:\windows\system", getname(), "*.txt", , 12000, 1000, 0)
          
          for k=1 to i 
              print getname(i)
          next
          '以上為在c:\windows\system中只查找所有擴展名為txt,大小為11000--13000字節的文件,包括c:\windows\system的下級子目錄,
          
函數七十五:
          GetAllDrive() As String 
          獲取機器上所有的驅動器號
          成功,函數返回所有的驅動器盤符,否則返回空串
      
函數七十六:    
         DelInZipFile(ByVal ZipFile As String, ByVal DelFileName As String) As Boolean
         刪除zip壓縮文件夾中的文件，可支持通配符
         zipfile為壓縮文件夾的名稱，delfilename為要刪除的文件
         成功返回true,否則返回false
         如：call function1.delinzipfile("c:\1.zip","*.txt")  刪除1.zip中的所有txt文件    

函數七十七：
         Findstop
         取消查找，用于FindFile函數在查找的過程中進行中斷。
         用法直接調用則可，如：call function1.findstop 
        


請關注http://www.programfan.com/wysoft/showwysoft.asp?id=1420,持續會有新的函數增加。
若有什么不足或錯誤的地方，懇請您發郵件告知與我。