Afgøre om netdrev kan tilgås

En lang beskrivelse, men kun  et 'lille' problem!
Jeg forsøger at sikre at et regneark på mit arbejde bliver gemt det rigtige sted og under det rigtige navn.
Jeg er der næsten, men der er stadig et enkelt problem.

Det drejer sig om et kasseregnskab der benyttes til 24 forskellige beboeres personlige månedlige kasseregnskaber på et kommunalt bosted.

Jeg har lavet det sådan at man skal vælge navn fra en dropdown-liste og en startdato fra en kalenderformular.
Ved hjælp af kode har jeg forhindret de almindelige måder et gemme regnskabet på. Makroer sørger så for at min kode gemmer regnskabet under et navn der indeholder beboernavn, måned og år, og på det rette sted.

Det rette sted er i beboerens mappe på et netværksdrev.

Hvis der af en eller anden grund ikke er forbindelse til netværksdrevet (det kan ske i sjældne tilfælde - er vist kun sket et par gange de sidste 3-4 år), så gemmes regnskabet på desktoppen med det rette navn.

Ikke dårligt synes jeg, men der er et problem.
Somme tider sker det at windows ikke registrer netværksdrevet 'ordentligt' selv om der faktisk er forbindelse til det.

Hvis man først åbner drevet med windows stifinder er problemet der ikke.

Jeg har testet det herhjemme med samme resultat (jeg har 2 bærbare tilsluttet til en windows 2003 server).

I begge tilfælde er drevet en mappe på serveren, der er mapped som drev G:\.

Denne makro:
-----------------------------------------------------
Sub Test_G()
    If DExist("g") = 2 Then
        Call G_Exist
    End If
    If DExist("g") <> 2 Then
        Call G_Do_Not_Exist
    End If
End Sub
-----------------------------------------------------

Og denne funktion:
-----------------------------------------------------
Public Function DExist(OrigFile As String)
    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.driveexists(OrigFile) = True Then
        Set d = fs.getdrive(OrigFile)
        DExist = 1
        If d.isready = True Then
            DExist = 2
            Exit Function
        End If
    Else
        DExists = 0
    End If
End Function
-----------------------------------------------------

Bruges til at teste om der er adgang til drev G:\.

Hvis der er adgang gemmes på netværksdrevet, hvis ikke gemmes på desktoppen.

Hvordan kan man sikre at der åbnes 'rigtig' adgang til drev G:\ hvis der faktisk er forbindelse til det?