bestaat zoiets? (Filecopy even geen path)

[boppe]

Met een stukje onderstaande code wordt een formulier gekopieerd naar de server, T-schijf.
Dat gaat prima,
echter als er verbinding is.
De medewerkers die dit formulier gebruiken, zitten in de buitendienst en hebben niet altijd even goede verbinding.

Kan ik het formulier zo kleien dat wanneer er na bijvoorbeeld na 5 à 10 seconden geen verbinding is (lees: er kan geen kopie worden gemaakt), deze het bestand automatisch gaat mailen?
(ook als er even geen verbinding is, blijft het bestand in de uit-map staan en verstuurd automatisch bij verbinding).


Bekijk bijlage vba.txt

Boppe

 

[edmoor]

Ik gebruik dit om te bepalen of de opgegeven schijf/map aanwezig is en of er schrijfrechten zijn:

Function Schrijftest(Map As String) As Boolean
    Schrijftest = True
    
    On Error Resume Next
    Open Map & "\Schrijftest.tmp" For Output As #1
    If Err.Number > 0 Then
        Schrijftest = False
    Else
        Close #1
        Kill Map & "\Schrijftest.tmp"
    End If
End Function