函数控件,里面都是关于文件和字符串的操作控件

           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,持续会有新的函数增加。
若有什么不足或错误的地方，恳请您发邮件告知与我。