' FileToStr() VFP equivalent ' expC1 File name Public Function FileToStr(ByVal tcFileName As String) As String Dim lcString As String = "" Dim lnCounter As Integer = 0 Dim lnDelay As Integer = 500 Dim lnRetry As Integer = 8 Dim loFile As IO.StreamReader For lnCounter = 1 To lnRetry Try loFile = New IO.StreamReader(tcFileName, True) lcString = loFile.ReadToEnd() loFile.Close() Exit For Catch loError As Exception ' If we have not reached the maximum tries of 8, we retry If lnCounter < 8 Then ' Wait for a timeout before retrying System.Threading.Thread.Sleep(lnDelay) Continue For End If ' Get the proper definition as per the current scope If oProcess Is Nothing Then oApp.ErrorSetup(loError, tcFileName) Else oProcess.ErrorSetup(loError, tcFileName) End If End Try Next Return lcString End Function