title image


Smiley Re: WinAPI-Funktion um Dateien zu kopieren
Hallo,ich habe folgenden Code aus einer Newsgroup:***********************************************************Im Deklarationsbereich:Declare Function apiFileCopy Lib "MSAU200.DLL" Alias "#4" (ByVal strSource As String, ByVal strTarget As String) As LongProzedur: Sub FileCopy (strSource As String, strTarget As String)'strSource ist der Dateiname der Quelldatei'strTarget ist der Name der ZieldateiDim lngResult As Long, strMsg As StringlngResult = apiFileCopy(strSource, strTarget)Select Case lngResultCase 0strMsg = "Datei erfolgreich kopiert"Case -101strMsg = strSource & " ist nicht verfügbar"Case -102strMsg = "Es war nicht möglich die Datei zu öffnen. Ist der vollständige Name angegeben? Existiert eine schreibgeschützte Datei mit diesem Namen?"Case -103strMsg = "Fehler beim Lesen von " & strSourceCase -104strMsg = "Fehler beim Schreiben von " & strTargetCase -105strMsg = "Unzureichender Speicher"Case -106strMsg = "Ungültiger Dateiname"Case ElsestrMsg = "Unbekannter Fehler"End SelectMsgBox strMsgEnd Sub***********************************************************Dieser Code stammt leider nicht von mir, aber ich kann leider auch nicht mit dem Namen des Autors dienen.Mit freundlichen GrüßenA.J.Peters**********************************************************************Websites zum Thema MS Access:http://members.eunet.at/donkarl/AccessFAQ.htmhttp://www.mvps.org/access/**********************************************************************

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: