VB Code:
Imports System
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SFile As System.IO.File
Dim VolRead As System.IO.StreamReader
Dim ReadTxt As String
Try
If SFile.Exists("C:\DIR.TXT") Then
System.Diagnostics.Process.Start("C:\Windows\System32\CMD.exe", " /C Del C:\DIR.TXT")
End If
System.Diagnostics.Process.Start("C:\Windows\System32\CMD.exe", " /C Dir C: > C:\DIR.TXT")
VolRead = New System.IO.StreamReader("C:\DIR.TXT")
ReadTxt = VolRead.ReadToEnd()
Label1.Text = "READING TEXT FILE OK.."
VolRead.Close()
If SFile.Exists("C:\Dir.txt") Then
System.Diagnostics.Process.Start("C:\Windows\System32\CMD.exe", " /C Del C:\DIR.TXT")
End If
Catch ex As Exception
Label1.Text = ex.Message
End Try
End Sub