sql-interface

1. Private Sub ListBox1_Click()
3. End Sub
5. Private Sub ComboBox1_Change()
7. End Sub
9. Private Sub CommandButton1_Click()
10. If TextBox1.Text <> "" Then
11. If Dir(TextBox1.Text, vbHidden + vbReadOnly + vbSystem) <> "" Then
12. MsgBox ("file exist")
13. Else
14. MsgBox ("file not exist")
15. End If
16. End If
17. End Sub
19. Private Sub CommandButton4_Click()
21. End Sub
23. Private Sub TextBox1_Change()
25. End Sub
27. Private Sub UserForm_Click()
29. End Sub
31. Private Sub UserForm_Initialize()
32.     Dim listArray()
33.     listArray = Array("butsuryu", "master", "gather")
34.     
35.     For i = 0 To UBound(listArray)
36.         UserForm1.ComboBox1.AddItem (listArray(i))
37.     Next
38.     
39.     
40. End Sub