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

news/2024/11/24 12:57:17/

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

http://www.ppmy.cn/news/740594.html

相关文章

.VBS文件的作用

今天遇到了有用.VBS文件配置环境变量的方法,还没仔细看,查了下.vbs文件是一种基于Visual Basic的脚本,VBS的全称是Microsoft Visual Basic Script Edition。 这个脚本语言有比较好玩的一些功能,感觉以后可以尝试下。先把我网上找…

VBS文件运行

首先,我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰,比较郁闷。但是我用了打开方式,试了浏览器、cmd,都无济于事。 今天,我想到这个问题后,就有想法去Microsoft的News Group上去问一…

vbs执行相应的bat文件

set wscreateobject("wscript.shell")rem 新建一个脚本对象dorem do loop 执行循环ws.run "C:\Users\Administrator\Desktop\rar.bat",0rem 执行rar.bat文件,后面的0代表运行改bat文件时不显示dos窗口wscript.sleep 30000rem 程序休眠30000毫秒…

vbs之下载文件

Set postCreateObject("Msxml2.XMLHTTP") post.Open "GET","https://blog.csdn.net/xianda9133/article/details/51200034" 发送请求 post.Send() Set aGet CreateObject("ADODB.Stream") aGet.Mode 3 aGet.Type 1 aGet.Open() 等待…

VBS 文件操作

VBS 文件操作 对于文件的操作,例如:生成一个或者打开一个或者删除一个.txt格式文件。 虽然官方的FILE插件提供了一些基本功能,但功能不多。 你并不需要理解什么是fso模版,什么是vbs语句,直接套用下面的语句吧&…

Vbs读写文件

vb脚本读写文件 2009-04-01 13:23 Vbscript 脚本编程 关于文件的读写 使用 vbscript 来读写文件,十分的方便,废话少说,切入正题。 1 、打开文件 使用 opentextfile 方法 set fs createobject(“scripting.filesystemobject”) set tsfs.open…

用vbs打开文件

set ws=createobject("wscript.shell")ws.run"打开文件所使用的程序+空格+程序路径",x,ture Run方法有三个参数:第一个参数:是你要执行的程序的路径,第二个参数:是窗口的形式,0后台运行;1正常运行;2最小化;3最大化;缺省的话表示正常运行第三个参数:是…

VBS创建文件

在桌面创建文件文件名称为0.txt到5.txt 桌面\ & 1.txt 桌面\1.txt才是在桌面删除文件1.txtAdministrator\桌面 & 1.txt Administrator\桌面1.txt,在Administrator文件夹下删除的文件名是桌面1.txt dim file,fileContent dim filePath filePath "C:\Documents …