Intervention sur les éléments non Masqués

1 réponse

Guy

27/03/2006 à 00:45

Bonjour à tous

Voila un exemple:
Function copyMyFiles() ' recopy touts les fichier .mdb depuis c:\temp ver
c:\ Guy

Dim fs As Object
Dim strFile As String

Set fs = CreateObject("Scripting.FileSystemObject")
If Dir("c:\temp\*.Mdb") > "" Then 'check if files exist
fs.CopyFile "c:\temp\*.Mdb", "c:\" 'copy all txt-files
strFile = Dir("c:\*.mdb")
Do While strFile > ""
Debug.Print strFile
strFile = Dir
Loop
Else
MsgBox "File not found"
End If

End Function

Cela fonctionne bien Mais je ne veux intervenir que sur les tables ou
Requetes non Masquées

--
Amicalement et merci

1 réponse

Raymond [mvp]

27/03/2006 à 21:10

Bonsoir.

ton copy copiant les fichiers, je ne vois pas comment intervenir sur les
tables.
d'autre part les table cachées étant les tables système, pas question de les
séparer des autres dans une base.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx

"Guy" <André> a écrit dans le message de news:

| Bonjour à tous
|
| Voila un exemple:
| Function copyMyFiles() ' recopy touts les fichier .mdb depuis c:temp ver
| c: Guy
|
| Dim fs As Object
| Dim strFile As String
|
| Set fs = CreateObject("Scripting.FileSystemObject")
| If Dir("c:temp*.Mdb") > "" Then 'check if files exist
| fs.CopyFile "c:temp*.Mdb", "c:" 'copy all txt-files
| strFile = Dir("c:*.mdb")
| Do While strFile > ""
| Debug.Print strFile
| strFile = Dir
| Loop
| Else
| MsgBox "File not found"
| End If
|
| End Function
|
|
| Cela fonctionne bien Mais je ne veux intervenir que sur les tables ou
| Requetes non Masquées
|
|
| --
| Amicalement et merci

Intervention sur les éléments non Masqués

1 réponse

Veuillez sélectionner un problème