sweetygui
Messages postés7Date d'inscriptionsamedi 22 novembre 2003StatutMembreDernière intervention 3 janvier 2005
-
16 déc. 2004 à 13:33
thierrydelepine
Messages postés521Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention11 septembre 2008
-
16 déc. 2004 à 14:01
Bonjour
j'ai développé un petit soft en VB6 sous windows 98. Il fonctionne sur mon PC mais après création automatique du SETUP (géré par visual studio), je l'installe sur un PC win 95 et la première fonction que j'ai isolée ne marche pas (fichier introuvable erreur 63). Les chemins sont bons car vérifiés. voici la fonction qui recherche le dernier fichier crée d'un dossier :
Function last_file()
Dim fso As New FileSystemObject
On Error Resume Next
Dim Dossier As Folder
Dim ElementDossier As File
Dim fichier As Files
Dim Dt1 As Date
Dim Dt2 As Date
Set Dossier = fso.GetFolder(emplacement_sat)
Set fichier = Dossier.Files
Dt2 = 0
For Each ElementDossier In fichier
Dt1 = ElementDossier.DateCreated
If Dt1 >= Dt2 Then
Dt2 = Dt1
dernier_fichier = Left(ElementDossier.Name, Len(ElementDossier.Name) - 4)