Amelioration du programme {ICONFOLDER} dont le createur est JC BELLAMY

france/lun./09/10/2006/12h13/debut_edit
Bonjour,

----------------------------------------------
Amélioration de "ICONFOLDER"
----------------------------------------------


= > Fonction "Cint()" en cause !..
= > Conversion en entier...
= > Cette fonction est obligatoire ici !..
= > Sans cette fonction ça "bug" !..
= > Elle sert d'enveloppe !..
= > Elle présente !..
= > [...]


Programme réalisé par:
Jean-Claude BELLAMY [MVP]


Affectation d'une icône à un dossier quelconque:
http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder


Infos sur le principe de "Iconefolder":
http://www.bellamyjc.org/fr/explorer.html#iconfolder


Attention au retour à ligne "messagerie" n'ont voulu...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Version modifiée de "iconfolder.vbs"...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Seule la partie où se situent 'les changements' est présente !!!
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
[§§§!!!§§§_ _ _Couper avant ou ici_ _ _§§§!!!§§§]
---------------------------------------------------------------------------------------------
If fso.FileExists(iconlist) Then
set flist=fso.OpenTextFile(iconlist)
do until flist.atEndOfStream
line = flist.ReadLine
pos = Instr(line, ":\")
DriveName=ucase(mid(line, pos-1,1))
If instr(dlist,DriveName)=0 Then
If dlist<>"" Then dlist=dlist & ","
dlist=dlist & DriveName
End If
infos = Split(line, vbTab)
pos = InstrRev(infos(1), "\")
FileName=lcase(mid(infos(1), pos+1))
PathName=lcase(left(infos(1), pos-1))
' ---------------------------------------------------------------------------------------------
' !!! §§ Début {rajouts et modifications A001} §§
' ---------------------------------------------------------------------------------------------
ProvsetNbrIcones=infos(0) ' --------- < = Principe = "if
ProvsetNbrIcones>32767 then"...
NbIcones="plus de 32767 icones" < = Alors l'affichage indique pour les
fichiers en causes...
else
NbIcones=ProvsetNbrIcones 'Cint(infos(0)) ' < = Dépassement de capacité
de la fonction "Cint()"...
' ------------------------------------------------------------- < =
"Cint()" = Conversion en nombre entier...
' ------------------------------------------------------------- < =
"Cint()" = Est limité en limite supérieur à 32767...
end if
' ---------------------------------------------------------------------------------------------
' !!! §§ Fin {rajouts et modifications A001} §§
' ---------------------------------------------------------------------------------------------
TestDico FileName,NbIcones,PathName
loop
flist.close
else
JobListe=2
Titre="Création"
end if

NewDisks=0
Disklist=""
DisklistMAJ=""
for each drive in fso.Drives
if drive.isReady and drive.DriveType=2 then
Diskletter=drive.DriveLetter
DescDisk=quote & Diskletter & quote & "," & quote & drive.VolumeName &
quote
If DiskList<>"" Then DiskList=DiskList & ","
DiskList=DiskList & DescDisk
If dlist="" or Instr(dlist,uCase(Diskletter))=0 Then
---------------------------------------------------------------------------------------------
[§§§!!!§§§_ _ _Couper après ou ici _ _ _§§§!!!§§§]
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Seule la partie où se situent 'les changements' est présente !!!
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
' JC BELLAMY © 2002 créateur de "ICONFOLDER"
' Dernières modifications :
' 23/10/2002 : ajout de RECYCLER
' dans la liste des répertoires non analysés
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------


Est-t'il possible d'avoir un accent circonflexe:
= > Sur le mot "icône"...
= > Sans rien devoir modifier...
= > Je ne sais pas si les accents sont pris en charge...
Merci... (:D)


Questions: (Anciennes ou nouvelles !..)
Pour un chapitre sur votre site internet:
Comment sont lus les données "Icônes" ?..
J'ai lu et compris "un peu" le programme (script) ?..
Je n'ais pas toutes les informations pour comprendre:
= > L'appel des données "icônes"...
= > Les autre données inutilisée ici, avec les fonctions...
Début de réponse et plus !.. (Pas suffisant ?..)
http://www.bellamyjc.org/fr/explorer.html#iconfolder
Merci... (:D)


Informations "bugs":
Deux lignes contenus dans "iconlist.txt" qui posent problèmes:
= > 41557 c:\program files\ati technologies\ati.ace\atiama64.dll
= > 100998 c:\download\showst~1.exe
De mémoire il n'y a pas d'icônes:
- Dans "showst~1.exe" !..


LE BUG:
-------------
Windows Script Host (Titre Boîte "POP-PUP" Erreur)
Script: C:\Program Files\JCBtools\Iconfolder\iconfolder.vbs
Ligne: 91
Caract.: 3
Erreur: Dépassement de capacité: 'Cint'
Code: 800A0006
Source: Erreur d'exécution Microsoft VBScript
-------------
Bouton "OK" et la croix dans l'angle...


Attention au retour à ligne "messagerie" n'ont voulu...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Seule la partie où se situent 'les changements' est présente !!!
!!! Version d'origine...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
[§§§!!!§§§_ _ _Couper avant ou ici_ _ _§§§!!!§§§]
---------------------------------------------------------------------------------------------
If fso.FileExists(iconlist) Then
set flist=fso.OpenTextFile(iconlist)
do until flist.atEndOfStream
line = flist.ReadLine
pos = Instr(line, ":\")
DriveName=ucase(mid(line, pos-1,1))
If instr(dlist,DriveName)=0 Then
If dlist<>"" Then dlist=dlist & ","
dlist=dlist & DriveName
End If
infos = Split(line, vbTab)
pos = InstrRev(infos(1), "\")
FileName=lcase(mid(infos(1), pos+1))
PathName=lcase(left(infos(1), pos-1))
' ---------------------------------------------------------------------------------------------
' !!! Indicateur position début {ni rajouts et ni modifications A001} §§
' ---------------------------------------------------------------------------------------------
NbIcones=Cint(infos(0))
TestDico FileName,NbIcones,PathName
loop
flist.close
else
JobListe=2
Titre="Création"
end if
' ---------------------------------------------------------------------------------------------
' !!! Indicateur position fin {ni rajouts et ni modifications A001} §§
' ---------------------------------------------------------------------------------------------

NewDisks=0
Disklist=""
DisklistMAJ=""
for each drive in fso.Drives
if drive.isReady and drive.DriveType=2 then
Diskletter=drive.DriveLetter
DescDisk=quote & Diskletter & quote & "," & quote & drive.VolumeName &
quote
If DiskList<>"" Then DiskList=DiskList & ","
DiskList=DiskList & DescDisk
If dlist="" or Instr(dlist,uCase(Diskletter))=0 Then
---------------------------------------------------------------------------------------------
[§§§!!!§§§_ _ _Couper après ou ici _ _ _§§§!!!§§§]
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Seule la partie où se situent 'les changements' est présente !!!
!!! Version d'origine...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
' JC BELLAMY © 2002 créateur de "ICONFOLDER"
' Dernières modifications :
' 23/10/2002 : ajout de RECYCLER
' dans la liste des répertoires non analysés
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Attention au retour à ligne "messagerie" n'ont voulu...


Date, version modifiée, de "iconfolder.vbs":
La plus loins connues !..
= > Modifications établies et fichier_s prêts pour envois...
- france/38 _ _ _ /lun./20/mars/2006, 16:18:44
- Le lundi 20 mars 2006 à 16h18s44 en France...
- france/lun./20/03/2006/16h18/fin_edit ("Iconfolder")


Merci...
france/lun./09/10/2006/14h29/fin_edit