fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009
-
17 avril 2008 à 19:00
fabricioliking
Messages postés79Date d'inscriptionmercredi 30 août 2006StatutMembreDernière intervention15 mai 2009
-
17 avril 2008 à 19:23
J'ai un petit peu de mal en ce qui concerne le passage d'une variable qui contiend la date de la dernière modification de l'un de mes fichiers.
Mon problème ést très simple à comprendre, j'ai mis en rouge ce qui je n'arrive pas à faire.
'J'ai tanter de mettre File As Object ou AS Variant mais je dois mal fair quelque chose rien n'avance
Function Anterieur( ) As Boolean
.
.
.
Dim Files
Set Files = folder.Files
Path2 = Me.var2.Text
For Each File In Files
If File.DateLastModified > fichier.DateLastModified Then
Anterieur = True
Et ce que j'ai mis en rouge correspond à ce que j'aimerai fair passer en parametre de cette fonction
Mais mon soucie c'est que la variable que je veux mettre dans le anterieur(var) a besoin d'un type et je ne sais pas quoi mettre
Function FindLastFile(Path As String)
.
.
.
Dim Files
Set Files = folder.Files
Dim j
j = 0
For Each File In Files
If existe(File.Name) = True Then
If Anterieur( ) = True Then
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFl.Copy "C:\Documents and Settings\FSD.DOMMIND\Bureau\Anterieurs" & File.Name, True
End If
End If
Next