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

目录与Shell 应用
................\工程1.vbp
................\工程1.vbw
................\成品.exe

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．