MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Fichier - Copier fichier d'un répertoire
| | Cette fonction permet de copier tous les fichiers d'un répertoire dans un autre répertoire. | | | | | | | |
| | CopyFileDir (strDir, strDirDest) La synthaxe de la fonction CopyFileDir comprend les éléments suivants : Eléments | Description | strDir | Expression de chaîne correspondant au nom du répertoire qui contient les fichiers que l'on souhaite copier. | strDirDest | Expression de chaîne correspondant au nom du répertoire de destination des fichiers. |
| | | | | | | |
| | Aucun exemple disponible pour le moment. | | | | | | | |
| | Function CopyFileDir(strDir As String, strDirDest As String)
Dim intFile As Integer Dim strFile As String
intFile = 0: strFile = "" With Application.FileSearch .LookIn = strDir: .FileName = "*.*" If .execute > 0 Then For intFile = 1 To .FoundFiles.Count strFile = .FoundFiles(intFile) strFile = Right(strFile, Len(strFile) - (Len(strDir) + 1)) FileCopy strDir & "" & strFile, strDirDest & "" & strFile Next End If End With
End Function | | |
Date de création : 27/10/2006 @ 15:14
Dernière modification : 30/10/2006 @ 13:59
Catégorie : Fichier
Page lue 1827 fois
Prévisualiser la page
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 9
Total visites : 174577
Affluence record: 102
le 17/06/2007 @ 07:36
|