菜鸟求助~~~

Question

你是想用什么控件吗？譬如说commondialog。如果这样，他又一个filename方法，可以获得文件名路径。

Answer 1

Dim x As String
Dim y As String
Private Sub Form_Load()
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FontName
    For i = 1 To Len(CommonDialog1.FileName)
        x = Left(Right(CommonDialog1.FileName, i), 1)
        If x = "\" Then Exit For
    Next i
    Text1.Text = Right(CommonDialog1.FileName, i - 1)
End Sub
菜鸟的回答。

Answer 2

是既可以选择文件、又可以选择目录吗？
用SHBrowseForFolder，向它传送的BROWSEINFO结构的中的ulFlags元素要加上BIF_BROWSEINCLUDEFILES具体函数调用的方法
可以去：
www.allapi.net
msdn.microsoft.com