Try
Dim j As Int16
For i = 0 To 59
For j = 0 To 99
If File.Exists(My.Settings.lidarPath & "\" & mes.szLocation.Substring(1, 1) & mes.DeviceNumber.ToString("00") & TimeStrings & i.ToString("00") & "." & j.ToString("00")) Then
TimeStrings = TimeStrings & i.ToString("00") & "." & j.ToString("00")
Else
MsgBox("不存在该时刻的文件,请重新选择", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "提示")
Exit Sub
End If
Next
Next
Catch ex As Exception
MsgBox("查找文件异常:" & vbCrLf & "发生异常:" & vbCrLf & ex.ToString & _
vbCrLf & "异常来源于:" & ex.Source & _
vbCrLf & "提示信息:" & ex.Message)
End Try