Please contact Me with error code and copy of zip file." & Chr(13) & Chr(13) Myerr = "This file did not parse correctly. SInputLine = sFileReader.ReadLine '*****Go to next line in file MyImg = mySec.AddImage(myFilePath & "\" & sImgFileName)
DdlWriter.WriteToFile(myDoc, "MigraDoc.mdddl")
'*****Document changed, write previous file and start new one If fStart = True Then '*****Sets comp for first line of file '*****Pull field values from line based on positionĭebug.Print(sDate & Chr(9) & sControl & Chr(9) & sDocNum & Chr(9) & sImgFileName) SWholeLine = sInputLine '*****Create variable to store line SFileReader = System.IO.File.OpenText(myFileName) '*****Open Fileĭo Until sInputLine Is Nothing '*****Loop Line by Line through file Function ProcessIndexFile(ByVal myFileName As String, ByVal myFilePath As String) As Booleanĭim sFileReader As System.IO.StreamReaderĭim myImg As ĭim myPS As
0 kommentar(er)
