您当前所在位置:首页 > 系统教程 > office应用教程
时间:2020-08-29 08:40:36 来源:系统堂 游览量: 次
1,FileExists:如果文件存在就返回TRUE
Sub FileExists()
Dim fs作为对象
Dim strFile作为字符串
设置fs = CreateObject(“ scripting.filesystemobject”)
strFile = InputBox(“输入文件的全名:”)
如果fs .FileExists(strFile)然后找到
MsgBox strFile&“。
其他
MsgBox“文件不存在。”
如果
结束则结束
2,GetFile:返回一对象文件
3,GetFileName:返回带路径文件名
4,GetFileVersion:返回文件版本
5,CopyFile:复制文件
Sub CopyFile()
Dim fs作为对象
Dim strFile作为字符串
Dim strNewFile作为字符串
strFile =“ c: hello.doc”
strNewFile =“ C: programs files hello.doc”
Set fs = CreateObject( “”
fs.CopyFile strFile,strNewFile
MsgBox““创建了指定文件的副本。”
设置fs = Nothing
End Sub
6,MoveFile:移动文件
7,DeleteFile:删除文件
Sub DeleteFile()
Dim fs作为FileSystemObject
设置fs = New FileSystemObject
fs.DeleteFile“ C: programs files hello.doc”
MsgBox“所请求的文件已删除。”
结束子
8,DriveExists:如果给定硬盘存在则返回TRUE
函数DriveExists(disk)
Dim fs As Object
Dim strMsg As String
Set fs = CreateObject(“ scripting.filesystemobject”)
如果fs.DriveExists(disk)然后
strMsg =“ drive [” &UCase(disk)&“]存在。”
否则
strMsg =“未找到驱动器[”&UCase(disk)&“]。
如果
DriveExists = strMsg
,则在工作表中运行此功能,方法是:
'在任何单元格中输入以下内容:= driveexists(“ e:”)
结束功能
9,GetFolder:返回对象
子文件InFolder()
Dim fs作为对象
Dim objFolder作为对象
Dim objFile作为对象
Dim i作为整数
i = 1
设置fs = CreateObject(“ scripting.filesystemobject”)
设置objFolder = fs.GetFolder(“ C :“)
Range(“ A1”)。为objFolder.Files中的每个objFile选择
选择
项
。Offset(i,0).Value = objFile.Name
.Offset(i,1).Value = objFile.Type
i = i + 1
下一个objFile
以
子结束
10,GetSpecialFolder:返回操作系统文件夹路径
0-视窗文件夹
1-系统文件夹
2-临时文件夹
子SpecialFolders()
昏暗FS作为对象
昏暗strWindowsFolder作为字符串
昏暗strSystemFolder作为字符串
昏暗strTempFolder作为字符串
组FS =的CreateObject( “Scripting.FileSystemObject的”)
strWindowsFolder = fs.GetSpecialFolder(0)
strSystemFolder = fs.GetSpecialFolder(1)
strTempFolder = FS .GetSpecialFolder(2)
MsgBox strWindowsFolder&vbCrLf&_
strSystemFolder&vbCrLf&_
strTempFolder,vbInformation + vbOKOnly,_
“特殊文件夹”
End Sub
11,CreateFolder:创建文件夹
Sub MakeNewFolder()
Dim fs,objFolder
设置fs = CreateObject(“ scripting.filesystemobject”)
设置objFolder = fs.CreateFolder(“ c: testfolder”)
MsgBox“名为“”和objFolder的新文件夹。名称和“”已创建。
结束子
12,CopyFolder:复制文件夹
Sub MakeFolderCopy()
昏暗fs作为FileSystemObject
设置fs = New FileSystemObject
如果fs.FolderExists(“ c: testfolder”)然后
fs.CopyFolder“ c: testfolder”,“ c: finalfolder”
MsgBox “文件夹已复制!”
如果
结束则结束
13,MoveFolder:移动文件夹
14,DeleteFolder:删除文件夹
Sub RemoveFolder()
Dim fs作为FileSystemObject
设置fs = New FileSystemObject
如果fs.FolderExists(“ c: testfolder”)然后
fs.DeleteFolder“ c: testfolder”
MsgBox“文件夹已删除。”
如果
结束则结束
15,CreateTextFile:创建文本文件
16,OpenTextFile:文本文件
Sub ReadTextFile()将
Dim fs作为对象
Dim objFile作为对象
Dim strContent作为字符串'定义文件内容
Dim strFileName作为String
Dim我作为整数
i = 1
strFileName =“ C: Windows win.ini”
设置fs = CreateObject(“ scripting.filesystemobject”)
设置objFile = fs.OpenTextFile(strFileName)
不做时objFile.AtEndOfStream
'******分行列出文件内容******
strContent = objFile.ReadLine
范围(“ a”&i)= strContent
i = i + 1
'******读取全部内容不分行******
'strContent = strContent&objFile.ReadLine&vbCrLf
循环
objFile.Close
设置objFile =无
端子