VB6操作文件和文件夹的方法

1 判断文件夹是否存在

Dir(文件夹地址, vbDirectory) = "" 

2 判断文件夹是否为空

Dir(文件夹地址, vbEmpty) = ""

3 创建文件夹

MkDir (需要创建的文件夹地址)

4 拷贝单个文件
使用Windows文件操作系统FileSystemObject

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
fs.CopyFile 需要拷贝的文件文件地址, 目标地址+ 拷贝的文件名 '使用该对象的copyfile方法将源文件复制到目标文件夹中

4 拷贝整个文件夹

使用Windows文件操作系统FileSystemObject

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
fs.CopyFolder 源文件夹, 目标文件夹

5 在文件夹的时候通常会操作字符串，下面是一些操作字符串的函数

（1）获取字符串长度：Len（字符串）
（2）截取字符串：Mid(C,m,n)，C为字符串，从m位置开始的n个字符串
（3）截取左字符串：Left(字符串,n) ，截取字符串左边n个
（4）截取右字符串：Right(“hello”, n)，截取字符串右边n个
（5）字符串转数值：Val(字符串)
（6）去掉字符串左右两边的空格：trim(字符串)
（7）字符串替换：Replace(C,m,n),C是要操作的字符串.m是将要被替换的字符串，n是需要替换成哪个字符串
（8）字符串查找：InStr(字符串str1, str2) ， 'Instr（Str1，Str2）查找第二个字符串Str2在第一个字符串Str1中的位置，返回的为字符串所在的位置
（9）字符串拼接：“&”，Str1 & Str2，字符串Str1和Str2进行拼接
（10）数值转字符串：CStr(123)，将123转化为字符串

6 读取文件夹中的所有文件，并显示在VB中的Combo1控件上
首先：添加一个按钮，一个Combo1，双击按钮写入下面的代码

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
Dim fld As Folder
Dim fil As File
Set fld = fs.GetFolder("C:\Windows")
For Each fil In fld.Files
  Combo1.AddItem fil.Name
Next
Set fil = Nothing
Set fld = Nothing
Set fs = Nothing

7 读取文件夹中的所有子文件夹，并将子文件夹名称显示在VB中的Combo1控件上
首先：添加一个按钮，一个Combo1，双击按钮写入下面的代码

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件系统对象fs
Dim fld As Folder
Dim fil As File
Set fld = fs.GetFolder("C:\Windows")
For Each fld In fld.SubFolders
  Combo1.AddItem fld.Name  ‘取到了子文件夹的名称，就可以做其它操作
Next
Set fil = Nothing
Set fld = Nothing
Set fs = Nothing

8 关于FileSystemObject 对象，包含的一些方法

Bulidpath：给已存在的路径增加一个名字。 
CopyFile：从一处复制一个或多个文件到另一处。 
CopyFolder：从一处复制一个或多个文件夹到另一处。 
CreateFolder：创建一个新的文件夹。 
CreateTextFile：创建一个文本文件并返回一个TextStream对象用来读写所创建的文本文件。 
DeleteFile：删除一个或多个指定的文件。 
DeleteFolder：删除一个或多个指定的文件夹。 
DriveExists：检查指定的驱动器是否存在。 
FileExists：检查指定的文件是否存在。 
FolderExists：检查指定的文件夹是否存在。 
GetAbsolutePathName：返回指定路径的完整路径。 
GetBaseName：返回指定文件或文件夹的基本名。 
GetDrive：返回指定路径的在驱动器的相应Drive对象。 
GetDriveName：返回指定路径的驱动器名。 
GetExtensionName：返回指定路径中最后部分的文件扩展名。 
GetFile：返回一个关于指定路径的文件对象。 
GetFileName：返回指定路径中最后部分的文件名或文件夹名。 
GetFolder：返回一个关于指定路径的文件夹对象。 
GetParentFolderName：返回指定路径中最后部分的父文件夹名。 
GetSpecialFolder：返回Windows某个专门文件夹的路径。 
GetTempName：返回一个随机生成的临时文件或文件夹。 
MoveFile：将一个或多个文件从一个地方移动到另一地方。 
MoveFolder：将一个或多个文件从一个地方移动到另一地方。 
OpenTextFile：打开一个文件并返回一个TextStream对象用来读写所打开的文件。