vb控件操作文件

前端之家收集整理的这篇文章主要介绍了vb控件操作文件前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

代码如下:

Private Sub Dir1_Change()@H_301_3@ File1.Path = Dir1.Path@H_301_3@ End Sub

Private Sub Drive1_Change()@H_301_3@ Dir1.Path = Drive1.Drive@H_301_3@ End Sub

Private Sub File1_DblClick()@H_301_3@ If Right(File1.Path,1) <> "\" Then@H_301_3@ Text2.Text = File1.Path & "\" & File1.FileName@H_301_3@ Else@H_301_3@ Text2.Text = File1.Path & File1.FileName@H_301_3@ End If@H_301_3@ End Sub

Private Sub Form_Load() File1.Pattern = "*.*" Text1.Text = "*.*" End Sub

猜你在找的VB相关文章