Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
stéphane
Voici ou j'en suis, maintenant il me reste plus qu'a trouver une fonction qui me permet de scanner tous les document d'un repertoire et d'y ajouter ma fonction --------------------- Function filescan()
Dim fso As Scripting.FileSystemObject Dim fle As Scripting.File Dim strFile As String Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("fichiers") ', dbOpenTable) Set fso = New Scripting.FileSystemObject
On Error Resume Next
' Créer une instance de fichier ' Le fichier est pointé directement depuis l'objet FSO. strFile = "C:Documents and SettingsAdministrateurBureauBD_DATA.mdb" If Not fso.FileExists(strFile) Then MsgBox "Le fichier [" & strFile & "] n'existe pas.", vbExclamation Exit Function End If Set fle = fso.GetFile(strFile)
' Libérer les objets Set fle = Nothing Set fso = Nothing
End Function
Bonjour,
Je cherche un moyen pour indexer dans une table access tout les fichiers d'un repertoire et sous-repertoires ainsi que les proprietes.
Si quelqu'un peux m'aider merci par avance
Voici ou j'en suis, maintenant il me reste plus qu'a trouver une fonction qui
me permet de scanner tous les document d'un repertoire et d'y ajouter ma
fonction
---------------------
Function filescan()
Dim fso As Scripting.FileSystemObject
Dim fle As Scripting.File
Dim strFile As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("fichiers") ', dbOpenTable)
Set fso = New Scripting.FileSystemObject
On Error Resume Next
' Créer une instance de fichier
' Le fichier est pointé directement depuis l'objet FSO.
strFile = "C:Documents and SettingsAdministrateurBureauBD_DATA.mdb"
If Not fso.FileExists(strFile) Then
MsgBox "Le fichier [" & strFile & "] n'existe pas.", vbExclamation
Exit Function
End If
Set fle = fso.GetFile(strFile)
Voici ou j'en suis, maintenant il me reste plus qu'a trouver une fonction qui me permet de scanner tous les document d'un repertoire et d'y ajouter ma fonction --------------------- Function filescan()
Dim fso As Scripting.FileSystemObject Dim fle As Scripting.File Dim strFile As String Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("fichiers") ', dbOpenTable) Set fso = New Scripting.FileSystemObject
On Error Resume Next
' Créer une instance de fichier ' Le fichier est pointé directement depuis l'objet FSO. strFile = "C:Documents and SettingsAdministrateurBureauBD_DATA.mdb" If Not fso.FileExists(strFile) Then MsgBox "Le fichier [" & strFile & "] n'existe pas.", vbExclamation Exit Function End If Set fle = fso.GetFile(strFile)
