* try to solve bug report 2102 part B

fv/stddlg.pas

@@ -2519,7 +2519,11 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if DosError=66 then
+    if (DosError=66)
+{$ifdef win32}
+       or (DosError=123)
+{$endif win32}
+       then
       begin
       {$ifdef fpc}
         FindClose(SR);

fvision/stddlg.pas

@@ -2519,7 +2519,11 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if DosError=66 then
+    if (DosError=66)
+{$ifdef win32}
+       or (DosError=123)
+{$endif win32}
+       then
       begin
       {$ifdef fpc}
         FindClose(SR);