Comparer une date avec DateCreated
Bonjour,
Je voudrais lire un fichier xml particulier et récupérer une information contenue à l'intérieur.
Pour pouvoir choisi le fichier xml voulus, je veut faire un tri sur la date et prendre celui qui à une date en particulier :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| If oFSo.FolderExists(stRep) Then
For Each oF1 In oFSo.GetFolder(stRep).Files
If oF1.Type = "XML Document" then
If Left(oF1.Name,3)= "BEX" Then
Dat = oF1.DateCreated
If dat > MyMonth Then '#7/28/2013 08:00:00 PM#
fichier = oF1.Name
MsgBox oF1.Name
'MsgBox oF1.Name
End If
End IF
End If
Next
xmlDoc.load(fichier) |
Mymonth contient la date du jour mise sous la forme #JJ/MM/AAAA hh:mm:ss PM#
Je voudrait donc comparer MyMonth avec oF1.DateCreated afin de selectionner un seul fichier xml sur les nombreux contenue dans le dossier.
Le problème est que dans tout les cas, il ne trouve pas le fichier si je compare avec MyMonth. Si je met la valeur date en dur : #7/28/2013 08:00:00 PM#, ça fonctionne.
Y a t'il un moyen pour comparer les deux dates?
Je pense que le problème sont les guillemet contenue par MyMonth : "#7/28/2013 08:00:00 PM#" qui empèche la comparaison.
Merci.