Function GetAllFolderName(FistFolder As String)'取所有文件夹名If FistFolder=""Then End Dim Fso As New FileSystemObject Dim Fol As Folder, Fol_ As Folder Dim Fols() As String Dim x As Long, y As Long x=1: y =1ReDim Preserve Fols(1To1) Fols(x)=FistFolder Do Set Fol=Fso.GetFold...
MsgBox strWindowsFolder& vbCrLf & strSystemFolder & vbCrLf _ & strTempFolder,vbInformation + vbOKOnly, "特定文件夹" End Sub 在我的电脑上运行上述代码后的结果如下图2所示。 图2 GetTempName方法 返回系统创建的一个临时文件或文件...
Debug.Print fileObject.Name Next fileObject End Sub ``` 以上代码中,我们在获取文件夹的过程后,使用了一个`For Each`循环来遍历`folderObject.Files`(即文件夹下的文件列表)。并通过`Debug.Print`将文件名输出到VBA的“立即窗口”中。 5.获取子文件夹列表 想要获取文件夹下的子文件夹列表,我们可以使用.Get...
Debug.Print fso.GetParentFolderName("c:\tmp\test.txt") '显示"c:\tmp" 11、GetTempName 方法 语法:object.GetTempName 作用:返回一个随机产生的临时文件或文件夹的名字,该名字在执行需要临时文件或文件夹的操作时有用。 说明:GetTempName 方法不产生一个文件,它仅提供一个临时文件名字,该名字可被 CreateTe...
语法:object.GetFileName(pathspec) 作用:返回指定路径中的最后部件,该路径不是驱动器说明的一部分。 示例: Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口显示"test.txt" 8、GetFolder 方法 语法:object.GetFolder(folderspec) 作用:返回一个和指定路径中文件夹相对应的 Folder 对象。
Cells(i, 1) = strName strName = Dir() '调用dir函数但未带参数 Loop Application.ScreenUpdating = True MsgBox "恭喜您,获取文件名成功" End Sub Function getPath() As String Dim Path As String With Application.FileDialog(msoFileDialogFolderPicker) '选择一个文件夹 ...
fileName=Dir Loop NextrowIndexA EndSub '''获取GetMainDirectory拾取文件夹路径下的所有文件夹,放到A列 SubGetFolderList() DimfolderNameAsString Dimi,kAsInteger Columns(1).Clear Cells(1,1).Value=GetMainDirectory(msoFileDialogFolderPicker)&"\" i=1 k=1 DoWhilei<=k folderName=Dir(Cells(i,1).Va...
Sub GetAllTxtFileNames() Dim FolderName As String Dim FileName As String FolderName = "C:\a\" FileName = Dir(FolderName & "*.txt") Do While FileName <> "" Debug.Print FileName FileName = Dir() Loop End Sub 运行后,立即窗口中显示的是: 代码语言:javascript 复制 4duck.txt 5horse...
oFolderObj.CreateTextFile FileName[,Overwrite[,Unicode]] 其中,oFolderObj代表任何能够返回Folder对象的对象变量。参数FileName必需,表示任何有效的文件名(路径可选),String类型,不允许使用通配符。参数Overwrite可选,一个标志,表示是否覆盖具有相同文件名的已有文件,Boolean类型,默认设置为False。参数Unicode可选,一个...
fileName = fso.GetFileName(filePath) folderPath = fso.GetParentFolderName(filePath) ``` 现在,让我们转向文件夹操作。在VBA中,我们可以使用一些函数和技巧来进行文件夹的创建、删除、重命名等操作,如下所示: 1.使用FileSystemObject对象创建文件夹:我们可以使用FileSystemObject对象的CreateFolder方法来创建文件夹。