Discussion :

[janou]

Bonjour à tous !
Je fais un programme pour voir les dates de clichés de mes photos.
Pour gérer des dossiers et des fichiers j'utilise la référence "microsoft scripting runtime"...
Pour gérer les propriétés des fichiers j'utilise la référence "microsoft shell controls and automation"...

Le problème vient de si la ref "Shell" est prioritaire sur "scripting", je ne peux plus gérer mes fichiers et que si "Scripting" est prioritaire sur "Shell", je ne peux plus accéder au propriétés des fichiers...
Dans les 2 cas mon programme plante !

Help !...Que faire ?

Merci d'avance !

[Tofalu]

Pour éviter les conflits de référence, il suffit de déclarant les objets en les préfixant du nom de la librairie.

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FSO as Scripting.FileSystemObject

[janou]

Merci Tofalu pour ta réactivité !
...J'ai déclarer comme tu m'a dis...Mais je me retrouve toujours avec la même erreur : "Erreur de compilation: Membre de méthode ou de données introuvable"

voila mon bout de code qui plante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Commande1_Click()
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Dim db As DAO.Database
Dim rst  As DAO.Recordset
Dim NomFoto As String
Dim PlaceEspace As Integer
Dim VieilleDate As Date
Dim VieilleHeure As Date
 
DoCmd.SetWarnings False
 
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM Tbl_fichier")
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Texte1 & "\") 'adapter le chemin
 
If Not rst.BOF Then
    rst.MoveFirst
End If
 
Do While Not rst.EOF
    NomFoto = rst(1)
    Set strFileName = objFolder.Items.Item(NomFoto) 'adapter le fichier
    PlaceEspace = InStr(1, objFolder.GetDetailsOf(strFileName, 25), " ")
 
    VieilleDate = Left(objFolder.GetDetailsOf(strFileName, 25), PlaceEspace)
    VieilleHeure = Right(objFolder.GetDetailsOf(strFileName, 25), Len(objFolder.GetDetailsOf(strFileName, 25)) - PlaceEspace)
 
    DoCmd.RunSQL "UPDATE Tbl_Fichier SET vieille_date=#" & VieilleDate & "#,vieille_heure=#" & VieilleHeure & "# WHERE id=" & rst(0)
    rst.MoveNext
Loop
 
Liste6.Requery
 
Set objShell = Nothing
Set objFolder = Nothing
Set strFileName = Nothing
 
DoCmd.SetWarnings True
 
End Sub

Ca plante a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set strFileName = objFolder.Items.Item(NomFoto)

(C'est un bout de code que j'ai d'ailleurs trouvé sur le forum !!)