Public Function fCopy(Source As String, Dest As String, _
  Ueberschreiben As Boolean) As Long
 
  ' Ueberschreiben: True, wenn ohne Warnung überschrieben
  '     werden soll (Entspricht -y beim DOS copy BEFEHL)
 
  Dim FileStructur As SHFILEOPSTRUCT
  Dim FLAG As Integer
 
  FLAG = 0
  If InStr(Source, vbNullChar + vbNullChar) > 0 Then _
    FLAG = FLAG + FnF_MULTIDESTFILES
 
  If InStr(Source, "*") > 0 Then _
    FLAG = FLAG + FnF_FILESONLY
 
  If Ueberschreiben = True Then _
    FLAG = FLAG + FnF_NOCONFIRMATION
 
  With FileStructur
    .wFunc = FN_COPY
    .pFrom = Check_NullChars(Source)
    .pTo = Dest
    .fFlags = FLAG
  End With
 
  fCopy = SHFileOperation(FileStructur)
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de