'注意引用 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键不放,在对应的文件或文件夹上右击,选择“复制为路径”即可快速得到路径。
评论列表(0条)