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.FilesCombo1.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.SubFoldersCombo1.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对象用来读写所打开的文件。