With CommonDialog1
.ShowOpen
If .FileName <> "" Then
Text1.Text = Right(.FileName, InStrRev(.FileName, "/")
end if
End With
With CommonDialog1
.ShowOpen
If .FileName <> "" Then
Text1.Text = Right(.FileName, InStrRev(.FileName, "/")
end if
End With
6万+

被折叠的 条评论
为什么被折叠?