vb CommonDialog 目录问题

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

我来回答

共2个回答

热心网友 时间：1天前

不想用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

热心网友 时间：1天前

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

End Sub
不知道是不是这样