vb CommonDialog 目录问题

发布网友发布时间：2024-10-24 12:54

共2个回答

热心网友时间：2024-11-05 01:52

不想用API或FSO,就用下面的将就一下:

Private Sub Command1_Click()
Dim fDir As String, fName As String, fTitle As String
CommonDialog1.ShowOpen
fName = CommonDialog1.FileName
fTitle = CommonDialog1.FileTitle
fDir = Left(fName, Len(fName) - Len(fTitle))
Text1.Text = fDir
End Sub

热心网友时间：2024-11-05 01:43

Private Sub Command1_Click()
CommonDialog1.showOpen
Text1.Text=Left(CommonDialog1.Filename,3)

End Sub
不知道是不是这样

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com