EXPLORER PAR UNE EXTENSION

ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 - 10 févr. 2005 à 22:27
fracaty444 Messages postés 4 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 12 février 2005 - 12 févr. 2005 à 11:39

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29408-explorer-par-une-extension

fracaty444 Messages postés 4 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 12 février 2005
12 févr. 2005 à 11:39

desole pour le post blanc du dessus

je voulai juste remercier fracag pour ce conseil car ma solution etait un peu plus tordu :o) mais fonctionnait

je vais modifier et ajouter quelque bricole du style un message clignotant (si j'y parviens) un son d'alerte, la taille des fichiers en octets et une extraction d'icone de fichiers tout ca juste pour me faire plaisir:o)

en faisant des erreurs on apprend, c'est donc ce que je suis en train de faire !

et merci de tous les conseils car je debute.

cs_FraGag Messages postés 81 Date d'inscription jeudi 19 février 2004 Statut Membre Dernière intervention 18 avril 2008
12 févr. 2005 à 01:45

En fait, le \\ apparait seulement quand on est dans la racine du lecteur. Par exemple, dans C:\, la propriété renvoie C:\, mais dans C:\WINDOWS\, la propriété renvoie C:\WINDOWS sans \ à la fin. Il suffit donc d'écrire « Text1.Text = File1.Path & IIf(Right(File1.Path = "", "", "") & File1.FileName » au lieu de « Text1.Text = File1.Path & "" & File1.FileName ». C'est aussi simple que ça.

fracaty444 Messages postés 4 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 12 février 2005
11 févr. 2005 à 21:07

merci drissou pour cet observation, je vais corriger ca rapidement par un test sur le lecteur (1 pour le reseau) et un traitement autre sur la chaine de caractere

je remplacerai la source des que possible

cs_drissou Messages postés 160 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 14 janvier 2009
11 févr. 2005 à 11:47

à fracaty444

pour ma part je ne ferai pas cela car si tu es en réseau tu peux avoir des chemins qui commencent par
\\Serveur..

il ne faut donc pas remplacer systématiquement \\

Drissou

fracaty444 Messages postés 4 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 12 février 2005
11 févr. 2005 à 09:38

plutot qu'un' boucle un simple remplacement de chaine est suffisant pour n'afficher qu'un \

voila la methode (enfin la mienne)

Private Sub File1_Click()
'recupere l'extension sans le point du fichier choisi
ext = Right(Combo1.Text, 3)
'si l'extension est de type image alors affiche l'image
If ext "bmp" Or ext "jpg" Or ext = "tif" Or ext = "ico" Or ext = "gif" Then Image1.Picture = LoadPicture(File1.Path + "" + File1.FileName)
'affiche le chemin complet du fichier
Dim place As Integer
Dim chem As String
Dim chem1 As String
chem = File1.Path & "" & File1.FileName
chem1 = Replace(chem, "\", "")
Text1.Text = chem1
End Sub

bon code a vous

fracaty444 Messages postés 4 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 12 février 2005
11 févr. 2005 à 09:12

en ce qui concerne le double \ il suffit de faire une boucle de teste avant l'affcihage et le probleme est régler, je vais penser a ca

si c'est l'icone des fichiers que tu veux recuperer la solution c'est de passer par " ExtractIcon" .

cs_FraGag Messages postés 81 Date d'inscription jeudi 19 février 2004 Statut Membre Dernière intervention 18 avril 2008
11 févr. 2005 à 01:40

Une petite erreur : dans le répertoire racine du lecteur (C:\ par exemple), le "Path" est "C:", donc dans le TextBox où tu mets le chemin du fichier, vérifie s'il n'y a pas déjà un "" pour éviter d'en mettre une deuxième.

ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 24
10 févr. 2005 à 22:27

C'est bien.

Sais-tu comment récupérer l'icône associée aux dossiers spéciaux ???

Discussions similaires

filtrer les extension

explorer de win

fichiers et extensions

Récupérer type d'un fichier

Recuperer le nom d un fichier sans son extension dans un textbox

Votre réponse

Discussions similaires