shingabiss
New member
My code works fine to write to a file in the debug mode but when I run the executable I get a "access denied" error. The code is below:
Dim DateOfTest AsDate
Dim TesterName AsString
Dim SerialNumber AsString
TesterName = TextBoxTester.Text
DateOfTest = Now
SerialNumber = TextBoxBoardSN.Text
'File writing for test info
Dim path AsString = "C:\" & SerialNumber & ".txt"
'set "append argument" variable for streamwriter to append or write
If File.Exists(path) Then
StreamWriterTrueFalse = True'flle exists so append
Else
StreamWriterTrueFalse = False'file doesn't exist so create
EndIf
Dim writer As StreamWriter = New StreamWriter(path, StreamWriterTrueFalse)
writer.WriteLine("CPX Loopback Test " & vbCrLf)
writer.WriteLine("Serial Number " & vbTab & "Tester Name" & vbTab & "Date")
writer.WriteLine(SerialNumber & vbTab & vbTab & TesterName & vbTab & vbTab & DateOfTest & vbCrLf)
Dim DateOfTest AsDate
Dim TesterName AsString
Dim SerialNumber AsString
TesterName = TextBoxTester.Text
DateOfTest = Now
SerialNumber = TextBoxBoardSN.Text
'File writing for test info
Dim path AsString = "C:\" & SerialNumber & ".txt"
'set "append argument" variable for streamwriter to append or write
If File.Exists(path) Then
StreamWriterTrueFalse = True'flle exists so append
Else
StreamWriterTrueFalse = False'file doesn't exist so create
EndIf
Dim writer As StreamWriter = New StreamWriter(path, StreamWriterTrueFalse)
writer.WriteLine("CPX Loopback Test " & vbCrLf)
writer.WriteLine("Serial Number " & vbTab & "Tester Name" & vbTab & "Date")
writer.WriteLine(SerialNumber & vbTab & vbTab & TesterName & vbTab & vbTab & DateOfTest & vbCrLf)