vb控件操作文件

代码如下：

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

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!