Line 33:
Line 34: Dim sharprt As New sharedparts
Line 35: Dim singleslash As String = Regex.Replace(survPath, "\\\\", "\")
Line 36: Dim isfixed As Boolean = sharprt.fixsurvey(Split(singleslash, "\")(UBound(Split(singleslash, "\")) - 1), Split(singleslash, "\")(UBound(Split(singleslash, "\"))))
Line 37:
|