如何取得选择框选择的文件的路径

如何取得选择框选择的文件的路径,第1张

'注意引用 microsoft office 10.0 (或以上) object library '在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen If .Show = -1 Then ChooseFolder = .SelectedItems(1)End IfEnd With Set dlgOpen = Nothing End Function '-------------------------------------------------------- '在文件对话框对中,选择一个文件。 Public Function ChooseOneFile(Optional TitleStr As String = 选择你要的文件, Optional TypesDec As String = 所有文件, Optional Exten As String = *.*) As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker) With dlgOpen .Title = TitleStr .Filters.Clear '清除所有的文件类型. .Filters.Add TypesDec, Exten .AllowMultiSelect = False '不能多选. If .Show = -1 Then ' .AllowMultiSelect = True '多个文件 ' For Each vrtSelectedItem In .SelectedItems ' MsgBox Path name: &vrtSelectedItem ' Next vrtSelectedItem ChooseOneFile = .SelectedItems(1) '第一个文件End IfEnd With

方法一:

在对应的文件上右击,选择“属性”,然后复制“位置”后面的文件路径。

方法二:

按下Shift键不放,在对应的文件或文件夹上右击,选择“复制为路径”即可快速得到路径。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/11497774.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存