Dim strOldFile2 As String
    Dim strNewFile2 As String
 
strOldFile2 = "C:\Programme\Wir\wir.txt"
    If DirExistsEx("G:\") Then strNewFile2 = "G:\Wir.txt"
            FileCopy strOldFile2, strNewFile2
 
 
 
 
 
'die Funktion zu DirExistsEx' 
 
Public Function DirExistsEx(ByVal sPath As String) As Boolean
  Dim iResult As Integer
  Dim sDir As String
 
  On Error Resume Next
  sDir = Dir$(sPath, vbDirectory)
  If Len(sDir) > 0 Then
    If InStr(sPath, "\") > 0 Then
      sPath = Left$(sPath, InStrRev(sPath, "\"))
      sDir = sPath & sDir
    End If
    iResult = GetAttr(sDir)
    DirExistsEx = IIf(Err = 0, True, False)
  End If
End Function