Discussion :

[Mehdibmc]

Bonjour,

J’aimerai ouvrir le dernier fichier créer/modifier d'un dossier sur visual basic 2010, es ce que c'est possible ?
Si oui comment faire ?

Merci d'avance

[Mario Rousson]

Import system.io
Tout est dedans!

[r.morel]

Salut,
Pour lister les fichiers dans un répertoire : Directory.GetFiles
Pour obtenir la date du dernier accès en écriture : File.GetLastWriteTime

Pourquoi encore utiliser Visual Studio 2010 ? Tu peux télécharger la version Community de 2017 gratuitement.

@+

[Mehdibmc]

Bonjour,
D'abord merci pour vos réponses, j'ai essayer, mais ça ne marche toujours pas, ça m'ouvre tout les fichiers du dossier et c'est pas ce que je veux :/

[Kropernic]

Hello,

Peut-être que ça ira plus vite si tu postes ton code. On pourrait pointer plus rapidement tes erreurs qu'en énumérant toutes les possibilités...

[r.morel]

Le code c'est cà : (Reçu dans le mail d'abonnement)

Code :

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

1
2
3
4
5
 
  For Each fichier As String In IO.Directory.GetFiles("C:\Users\Me\Desktop\IMAGE")
            'For Each info As String In IO.File.GetLastWriteTime(fichier)
            Process .Start=(File.GetLastAccessTimeUtc(fichier))
        Next

C'est normal que cela t'ouvre chacune de tes images.
Il y plusieurs solutions. Pour moi, je pense qu'il faut lister chacun de tes fichiers avec leur date et ensuite tu fais un tri pour trouver le plus récent.
Regarde de ce coté : https://msdn.microsoft.com/fr-fr/lib...v=vs.110).aspx

[Mehdibmc]

Bonjour,

Avec ce code j'arrive à voir la date c'est super, mais mtn je dois trouver le raccourci du fichier de cette date, est ce que tu sais comment faire ?

Dim path As String = "C:\Users\M\Desktop\IMAGE"

TextBox1.Text = IO.File.GetLastWriteTime(path)

Merci d'avance

[wallace1]

Bonjour Mehdibmc,

Il faut que, ...comment faire ceci ... , je veux ... , je dois ... , ça ne marche pas......

en quelque messages tu as réunis tout les critères du membre qui n'a pas envie de se donner les moyens....... si tu crois qu'il existe une fonction pour s'équiper de bon sens alors tu peux toujours chercher

A bon entendeur.....

[Mehdibmc]

Pour le moment j'ai le code si dessous, le problème de ce code il ouvre que les fichier qui ce trouvent dans le disque C, et moi mon fichier ce trouve dans un autre disque.

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\IMAGE"
Dim a As String = (New IO.DirectoryInfo(path).GetFiles("*.jpg").OrderByDescending(Function(x) x.CreationTime).FirstOrDefault().Name)
TextBox1.Text = (path & "\" & a)

Si une personne sais comment faire la même chose dans d'autres disque, merci de m'aidé

[r.morel]

Pour le moment j'ai le code si dessous, le problème de ce code il ouvre que les fichier qui ce trouvent dans le disque C, et moi mon fichier ce trouve dans un autre disque.

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\IMAGE"
Dim a As String = (New IO.DirectoryInfo(path).GetFiles("*.jpg").OrderByDescending(Function(x) x.CreationTime).FirstOrDefault().Name)
TextBox1.Text = (path & "\" & a)

Si une personne sais comment faire la même chose dans d'autres disque, merci de m'aidé

Ouh la !
Ton

Code :

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

Environment.SpecialFolder.Desktop

renvoie le chemin du bureau de l'utilisateur. Il suffit donc de le remplacer par le chemin de ton disque...

[Mehdibmc]

Merci pour votre réponse, je sais que Environment.SpecialFolder.Desktop renvoi au bureau, le problème c'est je n'est pas trouver dans https://msdn.microsoft.com/fr-fr/lib...ang=vb#Syntaxe , le membre qui pourrait accédé au disque voulu.

[Mehdibmc]

C'est bon problème résolu, il fallait juste remplacer Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\IMAGE" par le chemin voulu.

Merci à vous tous.

à la prochaine !