kopiering af fil fra netværksdrev

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
   
Public Function WindowsDirectory() As String

    Dim strBuff As String
 
    strBuff = String(200, Chr$(0))
    WindowsDirectory = Left$(strBuff, GetWindowsDirectory(strBuff, Len(strBuff)))

End Function

Function ExistFile(navn As String) As Integer
  ExistFile = Len(Dir$(navn)) > 0
End Function

Private Sub Form_Load()
Dim a As String

  a = WindowsDirectory & "\" & "addmail.exe"
  If ExistFile(a) Then MsgBox ("OK") Else MsgBox ("NEJ")

End Sub

Og så lige resten:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
   
Public Function WindowsDirectory() As String

    Dim strBuff As String
 
    strBuff = String(200, Chr$(0))
    WindowsDirectory = Left$(strBuff, GetWindowsDirectory(strBuff, Len(strBuff)))

End Function

Function ExistFile(navn As String) As Integer
  ExistFile = Len(Dir$(navn)) > 0
End Function

Private Sub Form_Load()
Dim a As String

  a = WindowsDirectory & "\" & "addmail.exe"
  If ExistFile(a) Then
    MsgBox ("Den er der")
  Else
    FileCopyAddmail
  End If

End Sub

Private Sub FileCopyAddmail()

    Dim NetværksSti As String
    Dim Destination As String
   
    NetværksSti = "I:\Temp\addmail.exe"
    Destination = WindowsDirectory & "\addmail.exe"
   
    FileCopy NetværksSti, Destination

End Sub

Okay. Der kommer åbenbart ikke flere svar.
Darth-domino.
Er det ikke muligt at gøre det lidt kortere da det skal ligges ind i et eksisterende script?