Creating a txt file
I'm trying to save a text file with data that the user has put into textboxes on a form. When they click the save button I want a txt file to be saved in a specified folder on my computer automatically. I would like the name of the txt file to be named the same as one of the textboxes on the form.
Currently my code is set so that the txt file is created and saves the data from the text boxes just fine. However the code I have right now brings up a dialog box after I click my save button and has me choose where to save it on the computer and what to name the file. How do I write code to make this step automatic?
Thanks
Here is my code:
PrivateSub WriteRecipeFile()
'It is in these first few line of code that I need the help with
Dim Recipe As StreamWriter
Dim results As DialogResult
results = SaveFileDialog1.ShowDialog
If results = DialogResult.OK Then
Recipe = New StreamWriter(SaveFileDialog1.FileName, False)
'Everything Below here works great
Recipe.Write(RecipeName.Text)
Recipe.Write(vbCrLf)
Recipe.Write(Task1.Text)
Recipe.Write(",")
If Task1.Text = "Vacuum"Then
Recipe.Write(Val(vac1))
ElseIf Task1.Text = "Temperature"Then
Recipe.Write(Task1Temp.Text)
ElseIf Task1.Text = "Wait"Then
Recipe.Write(Task1Wait.Text)
ElseIf Task1.Text = "Voltage"Then
Recipe.Write(Task1Volt.Text)
ElseIf Task1.Text = "Vent"Then
Recipe.Write(Val(ven1))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task2.Text)
Recipe.Write(",")
If Task2.Text = "Vacuum"Then
Recipe.Write(Val(vac2))
ElseIf Task2.Text = "Temperature"Then
Recipe.Write(Task2Temp.Text)
ElseIf Task2.Text = "Wait"Then
Recipe.Write(Task2Wait.Text)
ElseIf Task2.Text = "Voltage"Then
Recipe.Write(Task2Volt.Text)
ElseIf Task2.Text = "Vent"Then
Recipe.Write(Val(ven2))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task3.Text)
Recipe.Write(",")
If Task3.Text = "Vacuum"Then
Recipe.Write(Val(vac3))
ElseIf Task3.Text = "Temperature"Then
Recipe.Write(Task3Temp.Text)
ElseIf Task3.Text = "Wait"Then
Recipe.Write(Task3Wait.Text)
ElseIf Task3.Text = "Voltage"Then
Recipe.Write(Task3Volt.Text)
ElseIf Task3.Text = "Vent"Then
Recipe.Write(Val(ven3))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task4.Text)
Recipe.Write(",")
If Task4.Text = "Vacuum"Then
Recipe.Write(Val(vac4))
ElseIf Task4.Text = "Temperature"Then
Recipe.Write(Task4Temp.Text)
ElseIf Task4.Text = "Wait"Then
Recipe.Write(Task4Wait.Text)
ElseIf Task4.Text = "Voltage"Then
Recipe.Write(Task4Volt.Text)
ElseIf Task4.Text = "Vent"Then
Recipe.Write(Val(ven4))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task5.Text)
Recipe.Write(",")
If Task5.Text = "Vacuum"Then
Recipe.Write(Val(vac5))
ElseIf Task5.Text = "Temperature"Then
Recipe.Write(Task5Temp.Text)
ElseIf Task5.Text = "Wait"Then
Recipe.Write(Task5Wait.Text)
ElseIf Task5.Text = "Voltage"Then
Recipe.Write(Task5Volt.Text)
ElseIf Task5.Text = "Vent"Then
Recipe.Write(Val(ven5))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task6.Text)
Recipe.Write(",")
If Task6.Text = "Vacuum"Then
Recipe.Write(Val(vac6))
ElseIf Task6.Text = "Temperature"Then
Recipe.Write(Task6Temp.Text)
ElseIf Task6.Text = "Wait"Then
Recipe.Write(Task6Wait.Text)
ElseIf Task6.Text = "Voltage"Then
Recipe.Write(Task6Volt.Text)
ElseIf Task6.Text = "Vent"Then
Recipe.Write(Val(ven6))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task7.Text)
Recipe.Write(",")
If Task7.Text = "Vacuum"Then
Recipe.Write(Val(vac7))
ElseIf Task7.Text = "Temperature"Then
Recipe.Write(Task7Temp.Text)
ElseIf Task7.Text = "Wait"Then
Recipe.Write(Task7Wait.Text)
ElseIf Task7.Text = "Voltage"Then
Recipe.Write(Task7Volt.Text)
ElseIf Task7.Text = "Vent"Then
Recipe.Write(Val(ven7))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task8.Text)
Recipe.Write(",")
If Task8.Text = "Vacuum"Then
Recipe.Write(Val(vac8))
ElseIf Task8.Text = "Temperature"Then
Recipe.Write(Task8Temp.Text)
ElseIf Task8.Text = "Wait"Then
Recipe.Write(Task8Wait.Text)
ElseIf Task8.Text = "Voltage"Then
Recipe.Write(Task8Volt.Text)
ElseIf Task8.Text = "Vent"Then
Recipe.Write(Val(ven8))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task9.Text)
Recipe.Write(",")
If Task9.Text = "Vacuum"Then
Recipe.Write(Val(vac9))
ElseIf Task9.Text = "Temperature"Then
Recipe.Write(Task9Temp.Text)
ElseIf Task9.Text = "Wait"Then
Recipe.Write(Task9Wait.Text)
ElseIf Task9.Text = "Voltage"Then
Recipe.Write(Task9Volt.Text)
ElseIf Task9.Text = "Vent"Then
Recipe.Write(Val(ven9))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task10.Text)
Recipe.Write(",")
If Task10.Text = "Vacuum"Then
Recipe.Write(Val(vac10))
ElseIf Task10.Text = "Temperature"Then
Recipe.Write(Task10Temp.Text)
ElseIf Task10.Text = "Wait"Then
Recipe.Write(Task10Wait.Text)
ElseIf Task10.Text = "Voltage"Then
Recipe.Write(Task10Volt.Text)
ElseIf Task10.Text = "Vent"Then
Recipe.Write(Val(ven10))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task11.Text)
Recipe.Write(",")
If Task11.Text = "Vacuum"Then
Recipe.Write(Val(vac11))
ElseIf Task11.Text = "Temperature"Then
Recipe.Write(Task11Temp.Text)
ElseIf Task11.Text = "Wait"Then
Recipe.Write(Task11Wait.Text)
ElseIf Task11.Text = "Voltage"Then
Recipe.Write(Task11Volt.Text)
ElseIf Task11.Text = "Vent"Then
Recipe.Write(Val(ven11))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task12.Text)
Recipe.Write(",")
If Task12.Text = "Vacuum"Then
Recipe.Write(Val(vac12))
ElseIf Task12.Text = "Temperature"Then
Recipe.Write(Task12Temp.Text)
ElseIf Task12.Text = "Wait"Then
Recipe.Write(Task12Wait.Text)
ElseIf Task12.Text = "Voltage"Then
Recipe.Write(Task12Volt.Text)
ElseIf Task12.Text = "Vent"Then
Recipe.Write(Val(ven12))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task13.Text)
Recipe.Write(",")
If Task13.Text = "Vacuum"Then
Recipe.Write(Val(vac13))
ElseIf Task13.Text = "Temperature"Then
Recipe.Write(Task13Temp.Text)
ElseIf Task13.Text = "Wait"Then
Recipe.Write(Task13Wait.Text)
ElseIf Task13.Text = "Voltage"Then
Recipe.Write(Task13Volt.Text)
ElseIf Task13.Text = "Vent"Then
Recipe.Write(Val(ven13))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task14.Text)
Recipe.Write(",")
If Task14.Text = "Vacuum"Then
Recipe.Write(Val(vac14))
ElseIf Task14.Text = "Temperature"Then
Recipe.Write(Task14Temp.Text)
ElseIf Task14.Text = "Wait"Then
Recipe.Write(Task14Wait.Text)
ElseIf Task14.Text = "Voltage"Then
Recipe.Write(Task14Volt.Text)
ElseIf Task14.Text = "Vent"Then
Recipe.Write(Val(ven14))
Else
EndIf
Recipe.Write(vbCrLf)
Recipe.Write(Task15.Text)
Recipe.Write(",")
If Task15.Text = "Vacuum"Then
Recipe.Write(Val(vac15))
ElseIf Task15.Text = "Temperature"Then
Recipe.Write(Task15Temp.Text)
ElseIf Task15.Text = "Wait"Then
Recipe.Write(Task15Wait.Text)
ElseIf Task15.Text = "Voltage"Then
Recipe.Write(Task15Volt.Text)
ElseIf Task15.Text = "Vent"Then
Recipe.Write(Val(ven15))
Else
EndIf
Recipe.Close()
EndIf
EndSub
|
