'Замена символов ..\.. на D:\ или же X:\
Dim doctype As String
Dim fileName As String
Dim t As String
    fileName = Me.pdf_link_bank
    If InStr(fileName, "..\..\Shesyidvebi") > 0 Then
         fileName = Replace(fileName, "..\..\", "X:\")
    End If
    If InStr(fileName, "..\..") > 0 Then
         fileName = Replace(fileName, "..\..\", "D:\")
    End If
    t = Left(fileName, InStr(1, fileName, "#") - 1)
' Получаем название файла
    Dim sFullFileName As String
    Dim objFSO As Object, strFileName$, strFilePath$
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        strFilePath = t
        strFileName = objFSO.GetFileName(strFilePath)
    Set objFSO = Nothing
' Копирование на сервер
    Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
            fso.CopyFile t, doctype
    Set fso = Nothing