'On Error GoTo ErrHandler
' TODO: Add your code here
' final code
On Error Resume Next
Dim FolderName
FolderName = "M100x"
Dim FolderName1
FolderName1 = Trim(FolderName)
'ENSURE THAT FOLDER NAME CORRESPONDING TO WINDING SR NO IS CREATED AND CONTAINS THE FILE MeasLog.csv
'ENSURE THAT THE SAME WINDING SR NO IS ENTERED IN THE HMI FIELD D4502
Dim outputString
Dim outputFile
Dim inputFile
Const ForWriting = 2
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outputFile = objFSO.CreateTextFile("F:\csv\" + "Logger.csv", ForWriting, True)
outputFile.WriteLine FolderName1
Set inputFile = objFSO.OpenTextFile("F:\csv\" + FolderName1 + "\MeasLog.csv", ForReading)
If Err.Number <> 0 Then
MsgBox "Error No:" & Err.Number & " - " & _
Err.Description & " has occurred"
Err.Clear
Else
Alert z
End If
Dim temp
temp = inputFile.ReadLine' read the 1st line and discard
outputFile.WriteLine temp
'Dim temp1()
'temp1 = Split(inputFile.ReadLine, ",")
'outputString = Join(temp1, ",")
'outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputFile.Close
inputFile.Close
' TODO: Add your code here
' final code
On Error Resume Next
Dim FolderName
FolderName = "M100x"
Dim FolderName1
FolderName1 = Trim(FolderName)
'ENSURE THAT FOLDER NAME CORRESPONDING TO WINDING SR NO IS CREATED AND CONTAINS THE FILE MeasLog.csv
'ENSURE THAT THE SAME WINDING SR NO IS ENTERED IN THE HMI FIELD D4502
Dim outputString
Dim outputFile
Dim inputFile
Const ForWriting = 2
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outputFile = objFSO.CreateTextFile("F:\csv\" + "Logger.csv", ForWriting, True)
outputFile.WriteLine FolderName1
Set inputFile = objFSO.OpenTextFile("F:\csv\" + FolderName1 + "\MeasLog.csv", ForReading)
If Err.Number <> 0 Then
MsgBox "Error No:" & Err.Number & " - " & _
Err.Description & " has occurred"
Err.Clear
Else
Alert z
End If
Dim temp
temp = inputFile.ReadLine' read the 1st line and discard
outputFile.WriteLine temp
'Dim temp1()
'temp1 = Split(inputFile.ReadLine, ",")
'outputString = Join(temp1, ",")
'outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputString = inputFile.ReadLine
outputFile.WriteLine outputString
outputFile.Close
inputFile.Close
Comments
Post a Comment