Office中国论坛/Access中国论坛

标题: 怎样读取文件路径和名称 [打印本页]

作者: mandyliu912 时间: 2005-12-4 22:12
标题: 怎样读取文件路径和名称
利用按钮浏览文件，象windows浏览那样,然后用文本框显示已选取的文件绝对路径以及名称？

作者: 方漠 时间: 2005-12-6 05:25
需要引用Microsoft Office 11.0/10.0 Object Library

Private Sub Command0_Click() '不使用API调用对话框。
Dim dlgOpen As FileDialog
Dim vrtSelectedItem As Variant
Dim strPATHfILE As String

Set dlgOpen = CurrentProject.Application.FileDialog(msoFileDialogFilePicker)

With dlgOpen
.AllowMultiSelect = False
If .Show = True Then
      For Each vrtSelectedItem In .SelectedItems
         strPATHfILE = vrtSelectedItem
      Next vrtSelectedItem
End If

End With
Set fd = Nothing
MsgBox strPATHfILE

End Sub

作者: 75501241 时间: 2007-3-28 02:44
[em01]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)