Hello rorygb,
Thanks for your post.
The following is the relative code for implement according to my understanding which could be as a suppliment to the above replies. I hope it helpful.
a)Ask for a folder name
c)if the folder already exsists delete it
First, input the fold you want to open into TextBox1. Then click Button1. If the folder already exsists, delete it. Else open the fold.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.Directory.Exists(TextBox1.Text) = False Then
System.IO.Directory.CreateDirectory(TextBox1.Text)
MessageBox.Show("create a new folder")
Else
System.IO.Directory.Delete(TextBox1.Text)
MessageBox.Show("delete an exist folder")
End If
End Sub
b)Ask for a filename
d)ask for text from the keyboard to write the file
e)write the text to file
f) save and close the file
First, input the filename into TextBox2. Then click Button2 open this file(if the file exists). Click Button3 write the text to the file. At last save and close the file.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Str As String
Str = TextBox2.Text
If File.Exists(Str) Then
System.Diagnostics.Process.Start(Str)
Else
MsgBox("sorry ,the file is not exists!")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sw As StreamWriter = New StreamWriter(TextBox2.Text)
' Add some text to the file.
sw.Write("This is the ")
sw.WriteLine("header for the file.")
sw.Close()
End Sub
If you have any problems, please feel free to contact me.
Best regards,
Liliane
Please mark the replies as answers if they help and unmark them if they provide no help. Thanks
