Comment obtenez-vous la dernière date de la dernière modification de fichier à l'aide de VB6?
6 Réponses :
Vous pouvez utiliser les fichiersSystemObject Voici un exemple
Vous pouvez également consulter Documentation MSDN < / a> Les échantillons sont pour les scripts, mais ils doivent être traduisés sur VB6 facilement.
-1. Je recommande d'éviter les Systèmes de fichiers Semobject si possible. Ce n'est pas toujours présent sur les machines utilisateur. Nous avons eu un problème d'assistance d'assistance le mois dernier parce qu'un département de la STI paranoïaque avait un systemobject griefs SystemObject et qui a cassé des logiciels que nous maintenons. Cela peut également être fait en une ligne dans Native VB6, pas 4 lignes de fichiersSystemObject.
Je suis d'accord avec @MarkJ: Évitez les FSO dans la mesure du possible. Si vous pensez que VB manque de certaines fonctionnalités, c'est ce que l'API Win32 est pour. Voici une date de date / heure exmaple
Ajoutez une référence à l'exécution de script Microsoft (Project-> Références ...) et utilisez le code suivant:
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("C:\foo.txt")
Debug.Print fil.DateLastModified
-1. Je recommande d'éviter les Systèmes de fichiers Semobject si possible. Ce n'est pas toujours présent sur les machines utilisateur. Nous avons eu un problème d'assistance d'assistance le mois dernier parce qu'un département de la STI paranoïaque avait un systemobject griefs SystemObject et qui a cassé des logiciels que nous maintenons. De plus, cela peut être fait en une ligne dans Native VB6: Doit être meilleur que 4 lignes avec FileSystemObject.
Il existe une fonction VB6 intégrée pour cela - pas besoin de FSO (bien que la FSO soit idéale pour des opérations de fichier plus avancées)
de http://msdn.microsoft.com/en-us/library/aa262740%28vs.60%29.aspx
+1. Je recommande d'éviter les Systèmes de fichiers Semobject si possible. Ce n'est pas toujours présent sur les machines utilisateur. Nous avons eu un problème d'assistance d'assistance le mois dernier parce qu'un département de la STI paranoïaque avait un systemobject griefs SystemObject et qui a cassé des logiciels que nous maintenons. Ici, la technique VB6 native est une ligne et le code FSO est d'au moins 3 lignes.
Je recommanderais d'utiliser l'appel de l'API Windows: http://www.ex-designz.net/apidetail.asp?api_id=128
Ensuite, vous pouvez obtenir une date de création ou une date de dernière modification.
Ceci est définitivement le moyen le plus simple d'atteindre ce que vous recherchez.
Dim myString as String
Dim myDate As Date
myString = Format(FileDateTime("C:\TESTFILE.txt"), "dd-MM-yyyy")
myDate = MyString
Une bonne réponse. Mais note que la question a été posée il y a plus de 10 ans;)
J'utilise ce code natif pour mettre à jour la date modifiée dans VB6: Il a une commande similaire à la commande "touch" de Linux.