MsgBox strWindowsFolder& vbCrLf & strSystemFolder & vbCrLf _ & strTempFolder,vbInformation + vbOKOnly, "特定文件夹" End Sub 在我的电脑上运行上述代码后的结果如下图2所示。 图2 GetTempName方法 返回系统创建的一个临时文件或文件...
Debug.Print fso.GetParentFolderName("c:\tmp\test.txt") '显示"c:\tmp" 11、GetTempName 方法 语法:object.GetTempName 作用:返回一个随机产生的临时文件或文件夹的名字,该名字在执行需要临时文件或文件夹的操作时有用。 说明:GetTempName 方法不产生一个文件,它仅提供一个临时文件名字,该名字可被 CreateTe...
Debug.Print fso.GetParentFolderName("c:\tmp\test.txt") '显示"c:\tmp" 11、GetTempName 方法 语法:object.GetTempName 作用:返回一个随机产生的临时文件或文件夹的名字,该名字在执行需要临时文件或文件夹的操作时有用。 说明:GetTempName 方法不产生一个文件,它仅提供一个临时文件名字,该名字可被 CreateTe...
Print FileName End Sub 运行后,立即窗口中显示的是: 代码语言:javascript 代码运行次数:0 运行 AI代码解释 4duck.txt 2.7 获取指定路径文件夹内所有txt文件的名称 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub GetAllTxtFileNames() Dim FolderName As String Dim FileName As String FolderName ...
Debug.Print fileObject.Name Next fileObject End Sub ``` 以上代码中,我们在获取文件夹的过程后,使用了一个`For Each`循环来遍历`folderObject.Files`(即文件夹下的文件列表)。并通过`Debug.Print`将文件名输出到VBA的“立即窗口”中。 5.获取子文件夹列表 想要获取文件夹下的子文件夹列表,我们可以使用.Get...
Call getfilename(fs_folder) With ThisWorkbook.Worksheets("名称列表") .Columns(1).AutoFit .Columns(2).AutoFit .Activate End With End Sub Sub getfilename(fso) With Worksheets("名称列表") .UsedRange.ClearContents Dim addrow '--- .Cells(1, 1) = "完整路径" .Cells(1, 2) = "文件名" add...
FileSystemObject")GetPF = Fso.GetParentFolderName(GetFile) & "\"Set PF = Fso.GetFolder(GetPF)...
Workbooks.OpenDatabase FileName:="C:\northwind.mdb" End Sub 4、保存文件 文件的保存使用Workbook对象的Save或SaveAs方法。 Save方法使用简单,语法为 expression.Save,expression是某个Workbook对象。 如:ActiveWorkbook.Save 即保存当前活动工作簿。 如果是第一次保存工作簿或要另存为,请使用 SaveAs 方法为该文件...
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) '选择一个文件夹 ...
MsgBox"文件夹中的文件数量为"& strFolder &"="& colFiles.Count EndIf EndSub IsRootFolder属性 IsRootFolder属性判断文件夹是否为根文件夹,如果是则返回True,Boolean类型。 Name属性 返回文件夹的名称,String类型。 ParentFolder属性 返回指定文件夹的父文件夹。如果当前文件夹是它所在驱动器的根文件夹,则该属性...