Dim oFileSys As New FileSystemObject Dim oFolder As Folder Set oFolder=oFileSys.CreateFolder(“MyFolder”) 示例 下面的代码在C盘创建一个名为TestFolder的文件夹并显示创建信息: Sub MakeNewFolder() Dim fs, objFolder Set fs =C...
SubCreatingFSO()Dim MyFSO As FileSystemObject Set MyFSO=New FileSystemObject End Sub (1) 通过New关键字,创建FileSystemObject的实例(Instance)。 (2) 通过Set关键字,将这个FileSystemObject的新实例赋给MyFSO对象。 如果需要的话,可以将上述的两条代码整合为一条。 代码语言:javascript 代码运行次数:0 运行 AI代...
Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 二. FileSystemObject的常用操作 1.创建文件和文件夹 使用FSO 对象的 CreateFolder 方法可以轻松创建文件和文件夹。 Sub CreateFolder() '创建文件夹 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim folderPath As...
1、写入: FileSystemObjectc操作文本文件是通过OpenTextFile的函数,它能够返回一个TextStream对象,TextStream对象封装好了对文本文档的一些常用的操作,让我们试试如何来写入一个文本文档: 代码语言:javascript 代码运行次数:0 SubTestFSOWrite()Dim fso As FileSystemObject '创建对象 Set fso=New FileSystemObject Dim ts A...
Dim fso As New FileSystemObject 应用案例 1.复制当前工作簿到D盘 Sub 复制当前工作簿到D盘() Di...
Set fso = CreateObject("Scripting.FileSystemObject") 二、使用FSO对象的CreatTextFile方法 可以使用该方法创建一个文本文件。第5行执行后,文本文件已经创建在硬盘中。 1 Sub CreateAndWrite() 2 3 Dim fso As New Scripting.FileSystemObject 4 Dim wfsm As Scripting.TextStream ...
对FileSystemObject一直略有耳闻,VBA爱好者常常简称为FSO对象。 在Scripting类库中有三个可以直接使用NEW关键字实例化的类,第一个就是常用的字典,第三个是FSO。 一、FSO对象引用的方法: 前期绑定:先要引用类库文件scrrun.dll,写代码的时候有智能提示。如果程序发给别人用,就要用后期绑定方式。
对FileSystemObject一直略有耳闻,VBA爱好者常常简称为FSO对象。 在Scripting类库中有三个可以直接使用NEW关键字实例化的类,第一个就是常用的字典,第三个是FSO。 一、FSO对象引用的方法: 前期绑定:先要引用类库文件scrrun.dll,写代码的时候有智能提示。如果程序发给别人用,就要用后期绑定方式。
你需要引用相应的库。单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。
DimoFileSysAsNewFileSystemObject DimoDriveAsDrive sPath=oFileSys.GetAbsolutePathName(sPath) IfoFileSys.FolderExists(sPath)Then setoDrive=oFileSys.GetDrive(oFileSys.GetDriveName(sPath)) EndIf 如果driverspecifier是一个网络驱动器或共享,在调用GetDrive方法之前,应该用DriveExists方法检验所需的驱动器是否可用。 必须...