Amelioration du programme {ICONFOLDER} dont le createur est JC BELLAMY
5 réponses
x
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) ' ----------- < = Réception (1) des données...
if ProvsetNbrIcones>32767 then ' -- < = Contrôle (1) des données...
NbIcones="plus de 32767 icones" ' < = Choix d'affichage si dépassement...
else
NbIcones=ProvsetNbrIcones 'Cint(infos(0)) ' < = Dépassement "capacité"
fonction "Cint()"...
' ------------------------------------------------------------- < =
"Cint()" = Convertie (1) les nombres en entiers...
' ------------------------------------------------------------- < =
"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
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))
' ---------------------------------------------------------------------------------------------
' !!! Indicateur position fin {ni rajouts et ni modifications A001} §§
' ---------------------------------------------------------------------------------------------
TestDico FileName,NbIcones,PathName
loop
flist.close
else
JobListe=2
Titre="Création"
end if
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")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
x
france/mar./10/10/2006/21h58/debut_edit Bonsoir,
Mon impatience, (!?@ / @?), me fait demandée: -------------------------------------------------------------------- = > Si ; et quand pourrons-nous voir, les changements:
"x" avait écrit, et plus ou mieux, dans le message de news:
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" [!..] = > Solution puisque ça marche sans [!..] = > Elle sert d'enveloppe !.. = > Elle présente !.. = > [...]
Programme réalisé par: Jean-Claude BELLAMY [MVP]
Site_s Internet: Ici: http://www.bellamyjc.org Ou là: http://jc.bellamy.free.fr
Affectation d'une icône à un dossier quelconque: Ici: http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder
Infos sur le principe de "Iconefolder": Ici: http://www.bellamyjc.org/fr/explorer.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/explorer.html#iconfolder
Attention aux retours à la ligne, "messageries", non vouluent... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- Version modifiée de "iconfolder.vbs"... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- !!! Seule la partie, et un peu plus: => 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) ' ----------- < = Réception (1) des données... if ProvsetNbrIcones>32767 then ' -- < = Contrôle (1) des données... NbIcones="plus de 32767 icones" ' < = Choix d'affichage si dépassement... else NbIcones=ProvsetNbrIcones 'Cint(infos(0)) ' < = Dépassement "capacité" fonction "Cint()"... ' ------------------------------------------------------------- < = "Cint()" = Convertie (1) les nombres en entiers... ' ------------------------------------------------------------- < = "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
Est t'il possible ?.. -------------------------- S'il vous plaît, dans "Iconfolder": = > D'avoir des accents circonflexes ?.. = > Sur le mot "icône" ?.. = > Sans rien devoir modifier de spécial ?.. Notes: = > Je ne sais pas si les accents sont pris en charge... = > Convertions oem/ansi [?..] (Dos et Windows [?..]) Merci... (:D)
Questions: (Anciennes ou nouvelles !..) Pour un chapitre sur votre site internet: ------------------------------------------------------ - Comment sont lues 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_s des données "icônes"... = > Les autres données inutilisées ici, avec les fonctions... Débuts des réponses et plus !.. (Pas suffisants ?..) Ici: http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder Merci... (:D)
Informations "bugs": ----------------------------- Deux lignes contenus dans "iconlist.txt" posant problèmes: = > 41557 c:program filesati technologiesati.aceatiama64.dll = > 100998 c:downloadshowst~1.exe De mémoire il n'y a pas d'icônes: = > Dans "showst~1.exe" !..
Le "bug": (L'annonce du "bug" !..) ----------------------------------------------- Windows Script Host = > Titre boîte "pop-pup" d'erreur !.. ------------------------------ Script: C:Program FilesJCBtoolsIconfoldericonfolder.vbs Ligne: 91 Caract.: 3 Erreur: Dépassement de capacité: 'Cint' Code: 800A0006 Source: Erreur d'exécution Microsoft VBScript ------------------------------ Boîte avec un bouton "OK" et la croix dans l'angle...
Attention aux retours à la ligne, "messageries", non vouluent... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- !!! Seule la partie, et un peu plus: => Où se situent, "les changements", est présente !!! !!! C'est la 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)) ' --------------------------------------------------------------------------------------------- ' !!! Indicateur position fin {ni rajouts et ni modifications A001} §§ ' --------------------------------------------------------------------------------------------- TestDico FileName,NbIcones,PathName loop flist.close else JobListe=2 Titre="Création" end if
--------------------------------------------------------------- Date, de "modifications", de "iconfolder.vbs": --------------------------------------------------------------- = + > Date la plus loin connue !.. (1 seule !!!......) = + > Modifications, "correctement", établies !.. = + > Fichier_s, prêt_s pour envoi_s, à l'auteur, pour diffusions !.. Date, et lieu, de façons différentes: = > 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/mar./10/10/2006/23h43/fin_edit et envoi
france/mar./10/10/2006/21h58/debut_edit
Bonsoir,
Mon impatience, (!?@ / @?), me fait demandée:
--------------------------------------------------------------------
= > Si ; et quand pourrons-nous voir, les changements:
"x" <x@x>
avait écrit, et plus ou mieux, dans le message de news:
OK0fRM66GHA.4116@TK2MSFTNGP03.phx.gbl...
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" [!..]
= > Solution puisque ça marche sans [!..]
= > Elle sert d'enveloppe !..
= > Elle présente !..
= > [...]
Programme réalisé par:
Jean-Claude BELLAMY [MVP]
Site_s Internet:
Ici:
http://www.bellamyjc.org
Ou là:
http://jc.bellamy.free.fr
Affectation d'une icône à un dossier quelconque:
Ici:
http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder
Ou là:
http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder
Infos sur le principe de "Iconefolder":
Ici:
http://www.bellamyjc.org/fr/explorer.html#iconfolder
Ou là:
http://jc.bellamy.free.fr/fr/explorer.html#iconfolder
Attention aux retours à la ligne, "messageries", non vouluent...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
Version modifiée de "iconfolder.vbs"...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
!!! Seule la partie, et un peu plus:
=> 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) ' ----------- < = Réception (1) des données...
if ProvsetNbrIcones>32767 then ' -- < = Contrôle (1) des données...
NbIcones="plus de 32767 icones" ' < = Choix d'affichage si dépassement...
else
NbIcones=ProvsetNbrIcones 'Cint(infos(0)) ' < = Dépassement "capacité"
fonction "Cint()"...
' ------------------------------------------------------------- < =
"Cint()" = Convertie (1) les nombres en entiers...
' ------------------------------------------------------------- < =
"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
Est t'il possible ?..
--------------------------
S'il vous plaît, dans "Iconfolder":
= > D'avoir des accents circonflexes ?..
= > Sur le mot "icône" ?..
= > Sans rien devoir modifier de spécial ?..
Notes:
= > Je ne sais pas si les accents sont pris en charge...
= > Convertions oem/ansi [?..] (Dos et Windows [?..])
Merci... (:D)
Questions: (Anciennes ou nouvelles !..)
Pour un chapitre sur votre site internet:
------------------------------------------------------
- Comment sont lues 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_s des données "icônes"...
= > Les autres données inutilisées ici, avec les fonctions...
Débuts des réponses et plus !.. (Pas suffisants ?..)
Ici:
http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder
Ou là:
http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder
Merci... (:D)
Informations "bugs":
-----------------------------
Deux lignes contenus dans "iconlist.txt" posant problèmes:
= > 41557 c:program filesati technologiesati.aceatiama64.dll
= > 100998 c:downloadshowst~1.exe
De mémoire il n'y a pas d'icônes:
= > Dans "showst~1.exe" !..
Le "bug": (L'annonce du "bug" !..)
-----------------------------------------------
Windows Script Host = > Titre boîte "pop-pup" d'erreur !..
------------------------------
Script: C:Program FilesJCBtoolsIconfoldericonfolder.vbs
Ligne: 91
Caract.: 3
Erreur: Dépassement de capacité: 'Cint'
Code: 800A0006
Source: Erreur d'exécution Microsoft VBScript
------------------------------
Boîte avec un bouton "OK" et la croix dans l'angle...
Attention aux retours à la ligne, "messageries", non vouluent...
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
!!! Seule la partie, et un peu plus:
=> Où se situent, "les changements", est présente !!!
!!! C'est la 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))
' ---------------------------------------------------------------------------------------------
' !!! Indicateur position fin {ni rajouts et ni modifications A001} §§
' ---------------------------------------------------------------------------------------------
TestDico FileName,NbIcones,PathName
loop
flist.close
else
JobListe=2
Titre="Création"
end if
---------------------------------------------------------------
Date, de "modifications", de "iconfolder.vbs":
---------------------------------------------------------------
= + > Date la plus loin connue !.. (1 seule !!!......)
= + > Modifications, "correctement", établies !..
= + > Fichier_s, prêt_s pour envoi_s, à l'auteur, pour diffusions !..
Date, et lieu, de façons différentes:
= > 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")
---------------------------------------------------------------
Mon impatience, (!?@ / @?), me fait demandée: -------------------------------------------------------------------- = > Si ; et quand pourrons-nous voir, les changements:
"x" avait écrit, et plus ou mieux, dans le message de news:
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" [!..] = > Solution puisque ça marche sans [!..] = > Elle sert d'enveloppe !.. = > Elle présente !.. = > [...]
Programme réalisé par: Jean-Claude BELLAMY [MVP]
Site_s Internet: Ici: http://www.bellamyjc.org Ou là: http://jc.bellamy.free.fr
Affectation d'une icône à un dossier quelconque: Ici: http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder
Infos sur le principe de "Iconefolder": Ici: http://www.bellamyjc.org/fr/explorer.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/explorer.html#iconfolder
Attention aux retours à la ligne, "messageries", non vouluent... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- Version modifiée de "iconfolder.vbs"... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- !!! Seule la partie, et un peu plus: => 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) ' ----------- < = Réception (1) des données... if ProvsetNbrIcones>32767 then ' -- < = Contrôle (1) des données... NbIcones="plus de 32767 icones" ' < = Choix d'affichage si dépassement... else NbIcones=ProvsetNbrIcones 'Cint(infos(0)) ' < = Dépassement "capacité" fonction "Cint()"... ' ------------------------------------------------------------- < = "Cint()" = Convertie (1) les nombres en entiers... ' ------------------------------------------------------------- < = "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
Est t'il possible ?.. -------------------------- S'il vous plaît, dans "Iconfolder": = > D'avoir des accents circonflexes ?.. = > Sur le mot "icône" ?.. = > Sans rien devoir modifier de spécial ?.. Notes: = > Je ne sais pas si les accents sont pris en charge... = > Convertions oem/ansi [?..] (Dos et Windows [?..]) Merci... (:D)
Questions: (Anciennes ou nouvelles !..) Pour un chapitre sur votre site internet: ------------------------------------------------------ - Comment sont lues 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_s des données "icônes"... = > Les autres données inutilisées ici, avec les fonctions... Débuts des réponses et plus !.. (Pas suffisants ?..) Ici: http://www.bellamyjc.org/fr/vbsdownload.html#iconfolder Ou là: http://jc.bellamy.free.fr/fr/vbsdownload.html#iconfolder Merci... (:D)
Informations "bugs": ----------------------------- Deux lignes contenus dans "iconlist.txt" posant problèmes: = > 41557 c:program filesati technologiesati.aceatiama64.dll = > 100998 c:downloadshowst~1.exe De mémoire il n'y a pas d'icônes: = > Dans "showst~1.exe" !..
Le "bug": (L'annonce du "bug" !..) ----------------------------------------------- Windows Script Host = > Titre boîte "pop-pup" d'erreur !.. ------------------------------ Script: C:Program FilesJCBtoolsIconfoldericonfolder.vbs Ligne: 91 Caract.: 3 Erreur: Dépassement de capacité: 'Cint' Code: 800A0006 Source: Erreur d'exécution Microsoft VBScript ------------------------------ Boîte avec un bouton "OK" et la croix dans l'angle...
Attention aux retours à la ligne, "messageries", non vouluent... --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------- !!! Seule la partie, et un peu plus: => Où se situent, "les changements", est présente !!! !!! C'est la 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)) ' --------------------------------------------------------------------------------------------- ' !!! Indicateur position fin {ni rajouts et ni modifications A001} §§ ' --------------------------------------------------------------------------------------------- TestDico FileName,NbIcones,PathName loop flist.close else JobListe=2 Titre="Création" end if
--------------------------------------------------------------- Date, de "modifications", de "iconfolder.vbs": --------------------------------------------------------------- = + > Date la plus loin connue !.. (1 seule !!!......) = + > Modifications, "correctement", établies !.. = + > Fichier_s, prêt_s pour envoi_s, à l'auteur, pour diffusions !.. Date, et lieu, de façons différentes: = > 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/mar./10/10/2006/23h43/fin_edit et envoi
Jean-Claude BELLAMY
Dans le message :, x a pris la peine d'écrire ce qui suit :
france/mar./10/10/2006/21h58/debut_edit Bonsoir,
Mon impatience, (!?@ / @?), me fait demandée: "demander" !!!!
Doucement, on est pas aux pièces ! Et je n'ai pas que çà à faire ...
Et ce n'est pas la peine de recopier l'intégralité des messages précédents. Çà surcharge inutilement le trafic NNTP.
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :uo9p2WL7GHA.4476@TK2MSFTNGP04.phx.gbl,
x <x@x> a pris la peine d'écrire ce qui suit :
france/mar./10/10/2006/21h58/debut_edit
Bonsoir,
Mon impatience, (!?@ / @?), me fait demandée:
"demander" !!!!
Doucement, on est pas aux pièces !
Et je n'ai pas que çà à faire ...
Et ce n'est pas la peine de recopier l'intégralité des messages précédents.
Çà surcharge inutilement le trafic NNTP.
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :, x a pris la peine d'écrire ce qui suit :
france/mar./10/10/2006/21h58/debut_edit Bonsoir,
Mon impatience, (!?@ / @?), me fait demandée: "demander" !!!!
Doucement, on est pas aux pièces ! Et je n'ai pas que çà à faire ...
Et ce n'est pas la peine de recopier l'intégralité des messages précédents. Çà surcharge inutilement le trafic NNTP.
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
x
france/mer./10/10/2006/13h09/debut_edit Bonjour,
Ok ! :D
Merci pour les réponses !.. (:D)
Je ne vois jammais les fautes d'orthographes avant !.. = > (rhuuumm;) :D Ou les fautes techniques !.. (Programmation) (:>D)
Mon impatience, (!?@ / @?), me fait demandée: "demander" !!!! (NDLR: C'était pour "Mon impatience") = > Ok !.. MAIS... Avec la féminisation des noms... :D = > JE SUIS POUR !.. (Précision...) = > (rhuuumm;) :D
Si ça vous dit: "La langue française" Dans "fr.rec.humour" Par "Majorclub" (ù@p0st£.n£t) (Ma modif !..) Message-ID: <452c2c54$0$27391$ C'est sûrement pas top, mais (bon, (tempis)) !.. :D http://groups.google.fr/group/fr.rec.humour/browse_thread/thread/af9c6e08f2600439/5ef6e249e13ec845?hl=fr#5ef6e249e13ec845
Citation (en partie): "Ce n'est pas la peine:" = > De recopier l'intégralité des messages précédents. Si !.. Quand je corrige mes fautes !.. (:>D)
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !..
Note: (:>D) --------------------------------------------------------------- Date, de "modifications", de "iconfolder.vbs": --------------------------------------------------------------- = + > Date la plus loin connue !.. (1 seule !!!......) = + > Fichier_s, prêt_s pour "envoi_s, à l'auteur", pour diffusions !.. = > Le lundi 20 mars 2006 à 16h18s44 en France... --------------------------------------------------------------- (:>D)
Merci... (Notamment, à Jean-Claude BELLAMY [MVP]) france/mer./10/10/2006/13h44/fin_edit
france/mer./10/10/2006/13h09/debut_edit
Bonjour,
Ok ! :D
Merci pour les réponses !.. (:D)
Je ne vois jammais les fautes d'orthographes avant !..
= > (rhuuumm;) :D
Ou les fautes techniques !.. (Programmation) (:>D)
Mon impatience, (!?@ / @?), me fait demandée:
"demander" !!!! (NDLR: C'était pour "Mon impatience")
= > Ok !.. MAIS...
Avec la féminisation des noms... :D
= > JE SUIS POUR !.. (Précision...)
= > (rhuuumm;) :D
Si ça vous dit:
"La langue française"
Dans "fr.rec.humour"
Par "Majorclub" (M@j0rclùb@l@p0st£.n£t) (Ma modif !..)
Message-ID: <452c2c54$0$27391$ba4acef3@news.orange.fr>
C'est sûrement pas top, mais (bon, (tempis)) !.. :D
http://groups.google.fr/group/fr.rec.humour/browse_thread/thread/af9c6e08f2600439/5ef6e249e13ec845?hl=fr#5ef6e249e13ec845
Citation (en partie): "Ce n'est pas la peine:"
= > De recopier l'intégralité des messages précédents.
Si !.. Quand je corrige mes fautes !.. (:>D)
=> Ça (çà?) surcharge inutilement le trafic NNTP.
Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D)
Je ne vois jammais les fautes d'orthographes avant !..
Note: (:>D)
---------------------------------------------------------------
Date, de "modifications", de "iconfolder.vbs":
---------------------------------------------------------------
= + > Date la plus loin connue !.. (1 seule !!!......)
= + > Fichier_s, prêt_s pour "envoi_s, à l'auteur", pour diffusions !..
= > Le lundi 20 mars 2006 à 16h18s44 en France...
---------------------------------------------------------------
(:>D)
Merci... (Notamment, à Jean-Claude BELLAMY [MVP])
france/mer./10/10/2006/13h44/fin_edit
Je ne vois jammais les fautes d'orthographes avant !.. = > (rhuuumm;) :D Ou les fautes techniques !.. (Programmation) (:>D)
Mon impatience, (!?@ / @?), me fait demandée: "demander" !!!! (NDLR: C'était pour "Mon impatience") = > Ok !.. MAIS... Avec la féminisation des noms... :D = > JE SUIS POUR !.. (Précision...) = > (rhuuumm;) :D
Si ça vous dit: "La langue française" Dans "fr.rec.humour" Par "Majorclub" (ù@p0st£.n£t) (Ma modif !..) Message-ID: <452c2c54$0$27391$ C'est sûrement pas top, mais (bon, (tempis)) !.. :D http://groups.google.fr/group/fr.rec.humour/browse_thread/thread/af9c6e08f2600439/5ef6e249e13ec845?hl=fr#5ef6e249e13ec845
Citation (en partie): "Ce n'est pas la peine:" = > De recopier l'intégralité des messages précédents. Si !.. Quand je corrige mes fautes !.. (:>D)
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !..
Note: (:>D) --------------------------------------------------------------- Date, de "modifications", de "iconfolder.vbs": --------------------------------------------------------------- = + > Date la plus loin connue !.. (1 seule !!!......) = + > Fichier_s, prêt_s pour "envoi_s, à l'auteur", pour diffusions !.. = > Le lundi 20 mars 2006 à 16h18s44 en France... --------------------------------------------------------------- (:>D)
Merci... (Notamment, à Jean-Claude BELLAMY [MVP]) france/mer./10/10/2006/13h44/fin_edit
Nina Popravka
On Wed, 11 Oct 2006 13:44:29 +0200, "x" wrote:
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !.. En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement lisible, ça serait un bon début. On n'est pas chez Zebulon. -- Nina
On Wed, 11 Oct 2006 13:44:29 +0200, "x" <x@x> wrote:
=> Ça (çà?) surcharge inutilement le trafic NNTP.
Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D)
Je ne vois jammais les fautes d'orthographes avant !..
En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement
lisible, ça serait un bon début.
On n'est pas chez Zebulon.
--
Nina
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !.. En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement lisible, ça serait un bon début. On n'est pas chez Zebulon. -- Nina
x
france/mer./11/10/2006/13h58/debut_edit Bonjour,
/mer./11/10/2006/ et pas: /mer./ "10" /10(oct.)/2006/ !.. Excuseeeez-moooiiii !..
"Nina Popravka"
a écrit dans le message de news:
On Wed, 11 Oct 2006 13:44:29 +0200, "x" wrote:
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !.. En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement lisible, ça serait un bon début.
??? Les "en-têtes" de messages ne sont pas correctes ?.. J'y connais rien ou presque !.. Ça indique le type de codage des caractères ?..
Merci... (Notamment, à Jean-Claude BELLAMY [MVP]) france/mer./11/10/2006/14h12/fin_edit
france/mer./11/10/2006/13h58/debut_edit
Bonjour,
/mer./11/10/2006/
et pas:
/mer./ "10" /10(oct.)/2006/ !.. Excuseeeez-moooiiii !..
"Nina Popravka"
Nina@nospam
a écrit dans le message de news:
8mmpi2huodu34pf8scbbtbip811plo0efg@4ax.com...
On Wed, 11 Oct 2006 13:44:29 +0200, "x" <x@x> wrote:
=> Ça (çà?) surcharge inutilement le trafic NNTP.
Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D)
Je ne vois jammais les fautes d'orthographes avant !..
En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement
lisible, ça serait un bon début.
???
Les "en-têtes" de messages ne sont pas correctes ?..
J'y connais rien ou presque !..
Ça indique le type de codage des caractères ?..
/mer./11/10/2006/ et pas: /mer./ "10" /10(oct.)/2006/ !.. Excuseeeez-moooiiii !..
"Nina Popravka"
a écrit dans le message de news:
On Wed, 11 Oct 2006 13:44:29 +0200, "x" wrote:
=> Ça (çà?) surcharge inutilement le trafic NNTP. Mais pas la défense de la langue... ; (sans fautes, (par moi)) (:D) Je ne vois jammais les fautes d'orthographes avant !.. En dehors de l'orthographe avec laquelle vous semblez définitivement
fâché(e), si vous pouviez régler votre newsreader pour être simplement lisible, ça serait un bon début.
??? Les "en-têtes" de messages ne sont pas correctes ?.. J'y connais rien ou presque !.. Ça indique le type de codage des caractères ?..
