Discussion :

[potili2]

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

[SilkyRoad]

bonsoir

s'il s'agit de remplacer uniquement des antislashs simples par des des antislashs doubles, tu peux remplacer

Code :

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

Fichier = Replace(Fichier, "\", "\\")

par

Code :

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

Fichier = "\\" & Replace(Mid(Fichier, 3), "\", "\\")

bone soirée
michel

[potili2]

merci mais ça ne suffit pas pour fonctionner...
Jean Pierre