1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Imports System.IO
Public Class Form1
Function search(ByVal entree As String)
Dim p As New ProcessStartInfo
Shell("cmd /C dir /B /s c:\" & entree & " > " & Chr(34) & Application.StartupPath & "\test.txt" & Chr(34), AppWinStyle.Hide, True)
Dim reader As New StreamReader(Application.StartupPath & "\test.txt")
Return reader.ReadToEnd
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.Text = search("aion.bin")
End Sub
End Class |
Partager