Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction CopyFile

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
                 
ByVal lpExistingFileName As String, _
                 ByVal lpNewFileName As String, _
                 ByVal bFailIfExists As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui

Description :
Cette fonction est à utiliser pour copier des fichiers. Les attributs du fichier copié le sont également (sauf les caractéristiques liées à la sécurité).
lpExistingFileName : Chaîne contenant le fichier à copier.
lpNewFileName : Chaîne avec le nom et le chemin de la destination de la copie.
bFailIfExists : Indique la marche à suivre si la destination contient déjà un fichier du même nom. S'il est à 'Vrai' et que le fichier est déjà présent la fonction renvoie une erreur, s'il est à 'Faux' et que le fichier est déjà présent, celui-ci est remplacé et aucune erreur n'est retournée.
Dans tous les cas, renvoie 'Vrai' si la fonction a réussi, sinon 'Faux'.

Exemple d'utilisation :

' Exemple proposé par : Gasser (jdg@urbanet.ch)

Public Function CopyFile(ByVal SourceFileName As String, _
                        
ByVal TargetFileName As String, _
                        
ByVal FailIfTargetExists As Boolean) As Long

Dim
strSourceTmp, strTargetTmp As String
Dim
lgFailIfExists As Long

strSourceTmp = SourceFileName & Space$(250 - Len(SourceFileName))
strTargetTmp = TargetFileName & Space$(250 - Len(TargetFileName))

lgFailIfExists =
CLng(FailIfTargetExists)

On Error Resume Next
    Call
APICopyFile(strSourceTmp, strTargetTmp, lgFailIfExists)
On Error GoTo 0

If Err.Number <> 0 Then
   
MsgBox Err.Description, vbCritical
End If

CopyFile = Err.Number
End Function

Retour à la liste des API

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr