ZIPVIEWER - ORGANISER SES SOURCES DU RESEAU CS
el_teedee
Messages postés
497
Date d'inscription
mercredi 7 juillet 2004
Statut
Membre
Dernière intervention
13 juillet 2015
-
9 août 2004 à 01:10
el_teedee Messages postés 497 Date d'inscription mercredi 7 juillet 2004 Statut Membre Dernière intervention 13 juillet 2015 - 10 août 2004 à 14:56
el_teedee Messages postés 497 Date d'inscription mercredi 7 juillet 2004 Statut Membre Dernière intervention 13 juillet 2015 - 10 août 2004 à 14:56
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/25244-zipviewer-organiser-ses-sources-du-reseau-cs
https://codes-sources.commentcamarche.net/source/25244-zipviewer-organiser-ses-sources-du-reseau-cs
10 août 2004 à 14:56
Private Sub Form_Load()
On Error GoTo invalide
Chemin = Slash(Lire("Répertoires", "Source"))
ChDir (Chemin)
suite:
File1.Path = Chemin
'Configuration du list1
List1.SmallIcons = ImL 'les iccons
List1.ColumnHeaders.Add , , "Nom", 6000 'Les colones
xptopbuttons1(0).Value = 2
Exit Sub
invalide:
'MsgBox "le répertoire par défaut n'existe pas !"
MkDir Chemin
GoTo suite
End Sub
Ton bouton option -> erreur chez moi ici :
Dir2.Path = Lire("Répertoires", "Exportation")
chemin d'accès introuvable
Tu peux faire le meme type de test pour vérifier que tout est ok avant de continuer.
Syl20
10 août 2004 à 11:23
9 août 2004 à 21:57
9 août 2004 à 01:10
juste le fait que tu aurais pu faire en sorte que le dossier c:\téléchargés se crée s'il n'existe pas... Obligé de débogger le prog pour aller voir ou ca couille car ca ne marche pas sinon.
J'ai aussi vu d'autre erreur de path. Notamment qc clic sur option.