How do I set the File system object to the current folder the excel file is in? Set objFSO = CreateObject("Scripting.FileSystemObject") 'FileSystemObject Set objFolder = objFSO.GetFolder(ThisWorkbook.FullName) 'Get the folder object X Set objFolder = objFSO.GetFolder(ThisWorkbook.FullName...
fso.copyfile sourcefile, destinationfolder Application.ScreenUpdating = True End Sub 四、删除文件 DeleteFile方法删除指定的一个或多个文件。其语法为:fso.DeleteFile FileSpec[,Force]参数FileSpec必需,代表要删除的单个文件或多个文件的名称和路径,String类型,可以在路径的最后部分包含通配符,可以为相对路径或绝对...
sPath=oFileSys.GetSpecialFolder (iFolderConst).Path 2.由于Path属性是Folder对象的缺省属性,所以第一个语句有效。因为不是给一个对象变量赋值,所以赋给sPath的值是缺省的Path属性值,而不是对象引用。 示例 获取并显示特定文件夹路径: Sub ...
如果用户有充分的权限,则参数Path可以指定为网络路径或共享名,例如:Fso.CreateFolder "\\NTSERV1\RootTest\newFolder"示例如下:Sub 按钮1_Click()Application.ScreenUpdating = FalseSet fso = CreateObject("Scripting.FileSystemObject")sfolder = ThisWorkbook.Path & "\thisfolder"If fso.folderexists(sfolder) The...
fso.GetFileName这个功能在需要判断文件名称是否符合某个条件的时候用的还是比较多的,如果要自己去处理,用VBA Strings模块下的Left、Right、Mid函数等也是可以的。 3、获取文件的后缀名 fso.GetExtensionName这个功能在判断文件类型的时候非常方便 4、获取不包含路径、不包含后缀的文件名 ...
语法:object.GetFileName(pathspec) 作用:返回指定路径中的最后部件,该路径不是驱动器说明的一部分。 示例: Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口显示"test.txt" 8、GetFolder 方法 语法:object.GetFolder(folderspec) 作用:返回一个和指定路径中文件夹相对应的 Folder 对象。
本文重点讲解FileSystemObject对象的CreateFolder方法、CopyFolder方法、MoveFolder方法、DeleteFolder方法、OpenTextFile方法和Drives属性。 CreateFolder方法 CreateFolder方法用于在指定的路径下创建一个新文件夹,并返回其Folder对象。其语法为: oFileSysObj....
语法:object.FileSystem 可以返回的值有: FAT、NTFS 和 CDFS。5)FreeSpace属性返回指定驱动器或网络共享中可供用户使用的可用空间量。此为只读属性。语法:object.FreeSpace 备注:可用空间属性返回的值通常与AvailableSpace属性返回的值相同。两者之间的差别在于支持配额的操作系统。6)IsReady属性,如果已准备好指定的...
Dim folder As Object Set fso=CreateObject("Scripting.FileSystemObject")'根据路径获取文件夹对象 Set folder=fso.GetFolder(ThisWorkbook.path)'遍历文件 For Each file In folder.Files Debug.Print file.path Next file '释放对象 Set file=Nothing Set folder=Nothing ...
Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口显示"test.txt" 8、GetFolder方法 语法:object.GetFolder(folderspec) 作用:返回一个和指定路径中文件夹相对应的Folder对象。 示例: Dim fd Set fd = fso.GetFolder("c:\windows") '变量f就代表了文件夹windows对象 注意:如果指定的文件夹不存在,...