Description: Private Sub Command3_Click()
Shell Text1.Text
End Sub
Private Sub Command4_Click()
dakai1.InitDir = "c:\"
dakai1.Filter = "EXE(*.exe,*.bat)|*.exe*.bat"
dakai1.Action = 1
Text1.Text = dakai1.FileName
End Sub
To Search:
- [haffuman] - Huffman compression algorithm for image
- [Kmean_v2_1] - K-Means using Visual Basic 6
File list (Check if you may need any files):
目录与Shell 应用
................\工程1.vbp
................\工程1.vbw
................\成品.exe
Download