Private Sub ListBox1_Click()
- End Sub
- Private Sub ComboBox1_Change()
- End Sub
- Private Sub CommandButton1_Click()
- If TextBox1.Text <> "" Then
- If Dir(TextBox1.Text, vbHidden + vbReadOnly + vbSystem) <> "" Then
- MsgBox ("file exist")
- Else
- MsgBox ("file not exist")
- End If
- End If
- End Sub
- Private Sub CommandButton4_Click()
- End Sub
- Private Sub TextBox1_Change()
- End Sub
- Private Sub UserForm_Click()
- End Sub
- Private Sub UserForm_Initialize()
- Dim listArray()
- listArray = Array("butsuryu", "master", "gather")
- For i = 0 To UBound(listArray)
- UserForm1.ComboBox1.AddItem (listArray(i))
- Next
- End Sub