Try copying a file test.txt (empty) using File System Object and capture the error.
Here is a sample code:

Private Function Server_Test()
Dim fs As New FileSystemObject
On Error GoTo errH

'...