sPath=oFileSys.GetSpecialFolder (iFolderConst) 或者: sPath=oFileSys.GetSpecialFolder (iFolderConst).Path 2.由于Path属性是Folder对象的缺省属性,所以第一个语句有效。因为不是给一个对象变量赋值,所以赋给sPath的值是缺省的Path属性值,...
Sub GetSubFolders() Dim fso As Object Dim folderPath As String Dim folderObject As Object Dim subFolderObject As Object folderPath = "C:\Users\Username\Documents\TestFolder" Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(folderPath) For Each subFolderObject...
Cells(LastRowB,2).Value=File.Path LastRowB=LastRowB+1 Next Nexti EndSub '''获取文件夹列表 SubFsoGetFolderList() DimrowIndexAsInteger DimfolderPathAsString '''调用函数获取主文件夹目录 folderPath=GetMainDirectory(msoFileDialogFolderPicker) rowIndex=1 Columns(1).Clear Do IfrowIndex=1Then Get...
Value = folderPath & fileName rowIndexB = rowIndexB + 1 fileName = Dir Loop Next rowIndexA End Sub '''获取GetMainDirectory拾取文件夹路径下的所有文件夹,放到A列 Sub GetFolderList() Dim folderName As String Dim i, k As Integer Columns(1).Clear Cells(1, 1).Value = GetMainDirectory(...
'本代码不能再VB.net中运行,仅在VBA中运行OptionExplicitPrivateFSOXAsObject'特定路劲下的文件和文件夹列表PublicSubListFilesAndFolders()SetFSOX=CreateObject("Scripting.FileSystemObject")DimfolderPathAsStringIfSelectFolderPath(folderPath)=TrueThen' 替换为你的文件夹路径DimfolderAsObjectDimsubFolderAsObjectDimfile...
Dim mainFolderPath As String mainFolderPath = objFolder.Self.Path 现在,mainFolderPath变量中存储了主文件夹的路径。 这种方法的优势是它是使用VBA内置的Shell对象来获取主文件夹路径,因此可靠性较高。它适用于需要在VBA中获取主文件夹路径的各种应用场景,例如自动化文件操作、文件路径显示等。
IsRootFolder属性判断文件夹是否为根文件夹,如果是则返回True,Boolean类型。 Name属性 返回文件夹的名称,String类型。 ParentFolder属性 返回指定文件夹的父文件夹。如果当前文件夹是它所在驱动器的根文件夹,则该属性无效。 Path属性 返回文件夹的完整路径...
一、GetOpenFilename 方法 GetOpenFilename该方法用于显示一个允许“选择打开文件”对话框,允许用户选择一个或多个文件。此方法不会实际打开文件,只是返回用户选择的文件路径。其基本语法如下: Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [MultiSelect]) ...
Set objFSO = CreateObject("Scripting.FileSystemObject") 'FileSystemObject Set objFolder = objFSO.GetFolder(ThisWorkbook.FullName) 'Get the folder object X Set objFolder = objFSO.GetFolder(ThisWorkbook.FullName).path X It is part of this code I am trying to adapt...
Function ListFiles(ByVal folderPath As String, ByRef counter As Integer) '自定义函数-取得文件夹下的文件名,包括子文件夹 On Error GoTo ErrorHandler '出现错误处理 Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") Dim folder As Object ...