bonjour:
je me sers de ceci pour déterminer la date de dernière modification d'un fichier
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
Sub Test()
    Dim sFich As String
 
    sFich = "C:\actions françaises 2003\test.txt"
 
    Proprietes_CIM_Datafile sFich
End Sub
 
 
Sub Proprietes_CIM_Datafile(Fichier As String)
    Dim strComputer As String
    Dim objWMIService As Object, colFiles As Object, objFile As Object
 
    strComputer = "."
    Fichier = Replace(Fichier, "\", "\\")
 
    Set objWMIService = GetObject("winmgmts:" _
          & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colFiles = objWMIService.ExecQuery _
          ("Select * from CIM_Datafile Where name = '" & Fichier & "'")
 
    For Each objFile In colFiles
 
          Debug.Print "Derniere modification: " & objFile.LastModified
 
    Next
End Sub
ceci fonctionne très bien
mais dans le cas particulier d'un fichier lu par réseau sur un autre ordinateur, type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 sFich = "\\Jeanlouis\donneesms\bb_1_5_15_ordi2.txt"
ça ne fonctionne évidemment plus, comment contourner la difficulté de ces "\\" ?
merci