Permalink
Browse files

MODEL, cAccnScan / clean-up, remove obsolete PathStart method of iden…

…tifying network drives.
  • Loading branch information...
C. Johnson
C. Johnson committed Apr 27, 2018
1 parent 14af62b commit 50385d1e138c5619caa409e090bb658101514714
Showing with 0 additions and 16 deletions.
  1. +0 −16 cAccnScan.cls
@@ -11,7 +11,6 @@ Option Compare Database
Option Explicit
Private bNewRecord As Boolean
Private sPathStart As String
Private sDrive As String
Private sFilePath As String
Private sFileName As String
@@ -94,18 +93,6 @@ Public Property Let FileName(sFN As String)
End If
End Property
Public Property Let PathStart(sPS As String)
sPathStart = sPS
End Property
Public Property Get PathStart() As String
If Len(sPathStart) = 0 Then
sPathStart = "CollectionsManagement"
End If
PathStart = sPathStart
End Property
Public Property Get OldPath() As String
Let OldPath = sOldPath
End Property
@@ -239,9 +226,6 @@ Public Property Let Url(sUrl As String)
For I = iStartPath To UBound(aPath) - 1
If Len(aPath(I)) = 0 Then
'NOOP
ElseIf (Len(sDrive) = 0) And (aPath(I) = PathStart) Then
sDrive = "\" & sPath
sPath = "\" & aPath(I)
Else
sPath = sPath & "\" & aPath(I)
End If

0 comments on commit 50385d1

Please sign in to comment.