- Charte d'utilisation de CodeS-SourceS - Aspects légaux
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte de CommentCaMarche.net - Conseils d'écriture
- Charte de Codes-SourceS -- Neutralité
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte d'utilisation de Codes Sources
Error 52 Dir [Résolu]
cs_StanG
- Messages postés
- 13
- Date d'inscription
- lundi 30 juin 2008
- Dernière intervention
- 3 septembre 2008
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
A voir également:
- Basic dir
- Vba error 52 - Meilleures réponses
- Error 52 - Meilleures réponses
- Visual Basic / VB.NET : Vb6 : tout en un, une fonction dir() améliorée, avec retour d' - Guide
- Visual Basic / VB.NET : Lister(dir) un ftp avec inet dans un listbox - CodeS SourceS - Guide
- Visual Basic / VB.NET : Explorateur de fichiers vba (le drive+dir+filelistbox du vb) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Routine dir récursive pour obtenir la liste de tous les fichiers dans - Guide
- Pdf codes.-boutons visual basic 2012 - Forum - VB.NET
14 réponses
Meilleure réponse
- Messages postés
- 13
- Date d'inscription
- lundi 30 juin 2008
- Dernière intervention
- 3 septembre 2008
Rebonjour,
Ca y est j'ai trouvé pourquoi et c'est très subtile
En fait, en faisant un msgbox, je me suis apercu que pour cet élève seulement après le nom et prénom, la date de naissance était à la ligne dans la msgbox, ce qui signifie qu'il devait y avoir dans mon fichier texte, un caractère spéciale "invisible" qui lui disait d'aller à la ligne, et je pense que c'est pour ça que le chemin d'accès était "mauvais".
Mais ca ne ce voyait pas quand je cherchais l'erreur sur mon fichier texte.
De plus, j'ai changé en utilisant les codes suivants:
Dim FSO As Object
Set FSO = CreateObject("Scripting.Filesystemobject")If FSO.FileExists(cheminaccès) 0 Then Picture1.Picture LoadPicture("c:\logicielPP\Icones\AjoutPhoto.Jpg")
If FSO.FileExists(cheminaccès) <> 0 Then Picture1.Picture = LoadPicture(cheminaccès)
Je pense que ca sera plus stable que Dir$()
Merci de votre aide
Ca y est j'ai trouvé pourquoi et c'est très subtile
En fait, en faisant un msgbox, je me suis apercu que pour cet élève seulement après le nom et prénom, la date de naissance était à la ligne dans la msgbox, ce qui signifie qu'il devait y avoir dans mon fichier texte, un caractère spéciale "invisible" qui lui disait d'aller à la ligne, et je pense que c'est pour ça que le chemin d'accès était "mauvais".
Mais ca ne ce voyait pas quand je cherchais l'erreur sur mon fichier texte.
De plus, j'ai changé en utilisant les codes suivants:
Dim FSO As Object
Set FSO = CreateObject("Scripting.Filesystemobject")If FSO.FileExists(cheminaccès) 0 Then Picture1.Picture LoadPicture("c:\logicielPP\Icones\AjoutPhoto.Jpg")
If FSO.FileExists(cheminaccès) <> 0 Then Picture1.Picture = LoadPicture(cheminaccès)
Je pense que ca sera plus stable que Dir$()
Merci de votre aide
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
116 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
casy
-> si oui j'te prépare le terrain ^^
http://www.codyx.org/snippet_recuperer-chemin-fichier-format-short-meme-si-fichier_443.aspx
nb : çà sent malgré tout le caractère spécial :)
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
-> si oui j'te prépare le terrain ^^
http://www.codyx.org/snippet_recuperer-chemin-fichier-format-short-meme-si-fichier_443.aspx
nb : çà sent malgré tout le caractère spécial :)
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
Salut à tous,
Essaye aussi pour voir, de changer le nom et prénom....Pi fait un msgbox de chemindelaphoto, et colle le résultat(en masquant le nom et prénom) ici.
Et "je pense" que tu n'as pas vraiment besoin de faire deux test d'affilés mais plutôt un truc du genre :
If Dir$(chemindelaphoto) <> VbNullString then
'Affichage
Else
'Autre action
End If
Et au cas particulier, de vérifier peut-être l'extention de ton fichier image dans le cas d'un affichage dans une PictureBox
A+
Exploreur
Linux a un noyau, Windows un pépin
Essaye aussi pour voir, de changer le nom et prénom....Pi fait un msgbox de chemindelaphoto, et colle le résultat(en masquant le nom et prénom) ici.
Et "je pense" que tu n'as pas vraiment besoin de faire deux test d'affilés mais plutôt un truc du genre :
If Dir$(chemindelaphoto) <> VbNullString then
'Affichage
Else
'Autre action
End If
Et au cas particulier, de vérifier peut-être l'extention de ton fichier image dans le cas d'un affichage dans une PictureBox
A+
Exploreur
Linux a un noyau, Windows un pépin
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
utilises la fonction décrite ci-dessous, tu n'auras plus ton soucis, je pense.
Dir$ est à conserver pour énumérer le contenu d'un répertoire uniquement.
Il plante trop facilement pour le reste, notamment les chemins réseaux inexistants
Public Declare Function
GetFileAttributes
Lib
"kernel32.dll"
Alias
"GetFileAttributesA" (
ByVal
lpFileName
As String
)
As Long
Public Const
INVALID_FILE_ATTRIBUTES
As Long
= &HFFFFFFFF
Public Function
DoesExist(
ByRef
vsPath
As String
)
As Boolean
DoesExist = (GetFileAttributes(vsPath) <> INVALID_FILE_ATTRIBUTES)
End Function
http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#208
Renfield
Admin CodeS-SourceS
- MVP Visual Basic
Dir$ est à conserver pour énumérer le contenu d'un répertoire uniquement.
Il plante trop facilement pour le reste, notamment les chemins réseaux inexistants
Public Declare Function
GetFileAttributes
Lib
"kernel32.dll"
Alias
"GetFileAttributesA" (
ByVal
lpFileName
As String
)
As Long
Public Const
INVALID_FILE_ATTRIBUTES
As Long
= &HFFFFFFFF
Public Function
DoesExist(
ByRef
vsPath
As String
)
As Boolean
DoesExist = (GetFileAttributes(vsPath) <> INVALID_FILE_ATTRIBUTES)
End Function
http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#208
Renfield
Admin CodeS-SourceS
- MVP Visual Basic
- Messages postés
- 13
- Date d'inscription
- lundi 30 juin 2008
- Dernière intervention
- 3 septembre 2008
voila les codes que j'utilise :
cheminaccès = "c:\logicielPP\InfosEleves" & nometab1 & " " & anneetmp & "\Photos" & UCase(tableaugeneral(numerosectiontmp - 1, Indexbouton, 2)) & " " & tableaugeneral(numerosectiontmp - 1, Indexbouton, 3) & " " & dateeleve & ".jpg"If Dir$(cheminaccès) vbNullString Then Picture1.Picture LoadPicture("c:\logicielPP\Icones\AjoutPhoto.Jpg")
If Dir$(cheminaccès) <> vbNullString Then Picture1.Picture = LoadPicture(cheminaccès)
nometab étant le nom de l'établissement, anneetmp, l'année, et le tableau dynamique possède le nom, prénom et date de naissance.
Concernant la solution de Renfield, quand j'essaie de coller Public const, il me met la ligne en rouge.
Et je ne vois pas comment utiliser la fonction après.
est-ce que je dois écrire DoesExit(chemindelaphoto) ?
cheminaccès = "c:\logicielPP\InfosEleves" & nometab1 & " " & anneetmp & "\Photos" & UCase(tableaugeneral(numerosectiontmp - 1, Indexbouton, 2)) & " " & tableaugeneral(numerosectiontmp - 1, Indexbouton, 3) & " " & dateeleve & ".jpg"If Dir$(cheminaccès) vbNullString Then Picture1.Picture LoadPicture("c:\logicielPP\Icones\AjoutPhoto.Jpg")
If Dir$(cheminaccès) <> vbNullString Then Picture1.Picture = LoadPicture(cheminaccès)
nometab étant le nom de l'établissement, anneetmp, l'année, et le tableau dynamique possède le nom, prénom et date de naissance.
Concernant la solution de Renfield, quand j'essaie de coller Public const, il me met la ligne en rouge.
Et je ne vois pas comment utiliser la fonction après.
est-ce que je dois écrire DoesExit(chemindelaphoto) ?
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.