SubFileDialog_sample1()With Application.FileDialog(msoFileDialogFolderPicker).InitialFileName=ThisWorkbook.Path.Title="选择文件夹"If.Show=True ThenRange("B1")=.SelectedItems(1)&"\" Else MsgBox"你选择了“取消”"End If End
getLatestFilePath=folder&Finalname Exit Function End Function FunctiongetLatestFileName(origin As String)As String '获取最近的文件名称 Dim filename As String,Finalname As String,folder As String folder=Left(origin,InStrRev(origin,"\"))Finalname=Dir(origin)filename=Dir(origin)Do While filename<>""...
Namespace(GetParentFolder(filePath)) Dim fileName As String fileName = GetFileName(filePath) Dim file As Object Set file = folder.ParseName(fileName) Dim author As String author = folder.GetDetailsOf(file, 20) GetFileAuthor = author End Function Private Function GetParentFolder(filePath) As St...
fso.FileExists(Filepath)Filepath为文件完整路径，String类型，不能包含有通配符。如果用户有充分的权限，Filepath可以是网络路径或共享名 示例如下：Sub 按钮1_Click()Application.ScreenUpdating = False Set fso = CreateObject("Scripting.FileSystemObject")strfile = Application.InputBox("请输入文件的完整名称:", ...
DoWhilefileName<>"" Cells(rowIndexB,2).Value=folderPath&fileName rowIndexB=rowIndexB+1 fileName=Dir Loop NextrowIndexA EndSub '''获取GetMainDirectory拾取文件夹路径下的所有文件夹,放到A列 SubGetFolderList() DimfolderNameAsString Dimi,kAsInteger Columns(1).Clear Cells(1,1).Value=GetMainDirec...
filename=Dir(fpath)'获取路径下的第一个文件名(仅有文件名,不含完整路径)DoWhilefilename <>""Debug.Print (filename) filename=Dir'获取下一个文件LoopEnd Function' '利用FSO遍历目录下的所有文件名及其路径,不包含子目录的' 'FunctiongetAllFiles2(fpathAsString)DimOFsoAsObject, baseFolderAsObject, ofi...
说明:GetTempName 方法不产生一个文件,它仅提供一个临时文件名字,该名字可被 CreateTextFile 用于创建一个文件。 示例: Debug.Print fso.GetTempName '显示"radB0208.tmp",每次都会变。 12、BuildPath 方法 语法:object.BuildPath(path, name) 作用:追加一个名字到一个已经存在的路径。 示例: Debug.Print fso...
语法:object.GetFileName(pathspec) 作用:返回指定路径中的最后部件,该路径不是驱动器说明的一部分。 示例: Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口显示"test.txt" 8、GetFolder 方法 语法:object.GetFolder(folderspec) 作用:返回一个和指定路径中文件夹相对应的 Folder 对象。
" Else MsgBox "您选择的文件路径是:" & filePath End If End Sub 在这个示例中,我们首先使用ChDir函数更改当前目录到我们希望用户开始浏览的路径。然后,我们调用GetOpenFilename方法显示文件选择对话框。如果用户选择了文件,filePath变量将包含所选文件的完整路径;如果用户取消选择,filePath将是一个布尔值...
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...