Changement d'hébergeur de mon site

Suite à des problèmes techniques avec mon hébergeur voila.fr, j'au dû changer d'hébergeur. La nouvelle adresse de mon site est:
http://klauspanoramic.funpic.org/

Et donc, le code de mon programme de récupération automatique des modules est:

Code:: ' automatic_update_all.bas

dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"

dim dossier$ : dossier$ = "C:\temp\"

KGF_initialize("KGF.dll")

progress_bar 1 : top 1,10 : left 1,10 : width 1,width(0)-30
min 1,0 : max 1:9 : position 1,0

DownloadFile(url1$,dossier$+"KGF.dll")
position 1,1
DownloadFile(url2$,dossier$+"BDR.dll")
position 1,2
DownloadFile(url3$,dossier$+"KGF_SUB.bas")
position 1,3
DownloadFile(url4$,dossier$+"KGF.chm")
position 1,4
DownloadFile(url5$,dossier$+"KGF.doc")
position 1,5
DownloadFile(url6$,dossier$+"KGF.pdf")
position 1,6
DownloadFile(url7$,dossier$+"BDR_SUB.chm")
position 1,7
DownloadFile(url8$,dossier$+"BDR_SUB.doc")
position 1,9
DownloadFile(url8$,dossier$+"BDR_SUB.pdf")
position 1,9

message "fini"

end

#INCLUDE "KGF_SUB.bas"

Et mon site web à cette nouvelle adresse est mis à jour avec des références directes également à ces modules, sur la page "Externes". Facile à utiliser.

Je fais les modifs tout de suite dans petit programme... Laughing

Par contre sauf erreur de ma part, le KGF qui est en lien direct n'est pas de la bonne version (j'avais des erreur sur les nouvelles fonctions en utilisant le KGF téléchargé par les liens directs alors qu'en utilisant celle de ton Webdav tout marche bien)

Je confirme, la version sur le site est la 2.33 du 14/05/2013
En tout cas mon KGF_Updater, ne me change pas la version.

La version sur mon nouveau site est bien la V2.34 du 17/05/2013, avec une taille de "1 166 336 octets". Utilise bien le lien vers mon nouveau site klauspanoramic.funpic.org. Sur voila.fr, comme je l'ai indiqué, il y a un problème et je n'arrive plus mettre le site à jour. Il sera supprimé sous brève échéance.

J'ai corrigé un problème de code HTML sur mon nouveau site, dans la page "Externes", pour les liens directs vers les 9 fichiers concernés par la mise à jour. La page web utilise maintenant exactement les mêmes liens que ceux utilisés dans le module posté ci-dessus.

Voici mon source :

Code:: ' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.3 du 15/05/2013 *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
dim i%,Autre$
dim Clic%
dim Nb_Fich%
dim vKGF$,vBDR$
End_Sub

Sub Constantes()
dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"
dim path$ : path$ = Dir_Current$+"\"
dim KGF$ : KGF$ = path$+"KGF.dll"
dim BDR$ : BDR$ = path$+"BDR.dll"
dim T$ :T$ = "KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/"
dim D$ :D$ = path$+"temp\"
dim Fic$ : Fic$ = D$+"Versions.txt"
End_Sub

Sub Labels()
Label Clic,Clic2
End_Sub

' _______________________________________________________________INITIALISATIONS

Sub Init()
KGF_initialize(KGF$)
BDRinitialize(BDR$)

KGFdllversion()
vKGF$ = KGFdllversion$

BDRversion(vers$)
vBDR$ = BDRversion$
End_Sub

' _____________________________________________________________________INTERFACE

Sub GUI()
Dim_local T%,Sep%,C$
O_Form(0,0,1,0,0,250,400,"KGF UPDATER")
font_name 0,"arial"
O_Alpha(10,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
font_color 10,0,0,255 :font_bold 10
T%=20
For i%= 1 to 5
T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
T%=20
For i%= 6 to 9
T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
For i%= 3 to 9
Sep%=instr(T$,"/")
C$=left$(T$,Sep%-1)
if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
Caption i%,C$
Next i%

caption 1,vKGF$
caption 2,vBDR$

O_Button(11,0,1,160,350,25,25,"q",1)
font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
hint 11,"Mise à jour"
O_Statut_Bar(12,0,1,0)
O_Alpha(13,0,1,height(0)-56,20,0,0,"")
O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
O_DList(15,"")
O_Button(16,0,1,160,100,0,150,"Autres fichiers à mettre à jour",1)
O_DList(17,"")

End_Sub

Sub F_Autre()
If object_exists(18)=0
O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
font_name 18,"arial"
O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
font_bold 19 : font_color 19,0,0,255
O_List(23,18,1,30,10,150,364,"",0)
O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
hint 21,"Ajouter un fichier à la liste"
O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
hint 22,"Supprimer un fichier de la liste"
else
Show 18
end_if
End_Sub

Clic:
Clic%=Number_Click
Select Clic%
case 11 :Chargement()
case 16 :F_Autre()
case 21 :AjoutFich()
case 22 :SupprFich()
End_Select
return

Clic2:
For i%=1 to 9
If Clicked(i%)=1
If Checked(i%)=1
Nb_Fich%=Nb_Fich%+1
Else
Nb_Fich%=Nb_Fich%-1
End_if
End_if
Next i%
return

Sub AjoutFich()
if variable("File$")=1 : File$="" :End_if
O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
If File$<>""
item_add 17,File$
item_add 23,File$
End_if
End_Sub

Sub SupprFich()
if count(23)>0
If item_index$(23)<>""
Item_delete 17,item_index(23)
Item_delete 23,item_index(23)
end_if
else
if message_warning_ok("Liste vide !")=1:end_if
end_if
End_Sub

Sub Chargement()
Dim_local x%,nf%,cpt%,i$,dir$
if Dir_exists(D$)=0 :Dir_Make D$ : End_if
for x%=1 to 9 :inactive x% :next x%
caption 13,"Chargement des fichiers..."
display
show 14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
display
if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll") :position 14,position(14)+1:display:End_if
if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll") :position 14,position(14)+1:display:End_if
if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm") :position 14,position(14)+1:display:End_if
if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc") :position 14,position(14)+1:display:End_if
if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf") :position 14,position(14)+1:display:End_if
if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
if checked(9)=1:DownloadFile(url8$,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
position 14,0 :caption 13,""

GetActualVersions(Fic$)
file_load 15,Fic$

if checked(1)=1
nf%=nf%+1
if vKGF$<>item_read$(15,1)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de KGF.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(KGF$):file_delete KGF$:End_if
free KGF_initialize : free KGF_res%
position 14,3 :display
file_rename D$+"KGF.dll",KGF$
' font_color 1,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"KGF.dll"
end_if
end_if

if checked(2)=1
nf%=nf%+1
if vBDR$<>item_read$(15,2)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de BDR.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(BDR$) then file_delete BDR$
position 14,3 :display
file_rename D$+"BDR.dll",BDR$
' font_color 2,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"BDR.dll"
end_if
end_if

nf% = Nb_Fich% -nf%
Min 14,0 :Max 14,nf%
caption 13,"Mise à jour des fichiers"
if checked(3)=1
if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
' font_color 3,10,120,0
position 14,position(14)+1 :display
end_if
if checked(4)=1
if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
file_rename D$+"KGF.chm",path$+"KGF.chm"
' font_color 4,10,120,0
position 14,position(14)+1 :display
end_if
if checked(5)=1
if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
file_rename D$+"KGF.doc",path$+"KGF.doc"
' font_color 5,10,120,0
position 14,position(14)+1 :display
end_if
if checked(6)=1
if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
file_rename D$+"KGF.pdf",path$+"KGF.pdf"
' font_color 6,10,120,0
position 14,position(14)+1 :display
end_if
if checked(7)=1
if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
' font_color 7,10,120,0
position 14,position(14)+1 :display
end_if
if checked(8)=1
if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
' font_color 8,10,120,0
position 14,position(14)+1 :display
end_if
if checked(9)=1
if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
' font_color 9,10,120,0
position 14,position(14)+1 :display
end_if

if object_exists(18)=1
cpt%=count(23):nf%=0
Min 14,0 :Max 14,cpt% : position 14,0
caption 13,"Mise à jour des fichiers annexes..."
If Count(23)>0
for x%=1 to cpt%
i$=item_read$(23,1)
dir$=file_extract_path$(i$)
file_delete i$
if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
item_delete 17,1
item_delete 23,1
nf%=nf%+1
position 14,nf%
display
next x%
caption 13,""
hide 18
End_if
End_if

if variable("KGF_initialize")=0
KGF_initialize(KGF$)
BDRinitialize(BDR$)

KGFdllversion()
vKGF$ = KGFdllversion$

BDRversion(vers$)
vBDR$ = BDRversion$

caption 1,vKGF$
caption 2,vBDR$
end_if

for x%=1 to 9 :active x% :mark_off x% :next x%
Nb_Fich%=0
file_delete D$+"Versions.txt"
Dir_Remove D$
position 14,0 :caption 13,"" :hide 14
End_Sub

#include "OBJ_SUB.bas"
#include "KGF_SUB.bas"

et la version est toujours 2.33

( Dossier complet sur mon webdav :"Sources\KGF\Update_KGF.zip" )

J'ai compris. C'est parce que ta DLL (encore la version 2.33) contient une fonction GetActualVersion qui va chercher la liste des versions sur le site voila.fr - et ce site n'est pas à jour.

Fais plutôt comme ceci:

Code:: ' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.3 du 15/05/2013 *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
dim i%,Autre$
dim Clic%
dim Nb_Fich%
dim vKGF$,vBDR$
End_Sub

Sub Constantes()
dim url0$ : url0$ = "http://klauspanoramic.funpic.org/versions/versions.txt"
dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"
dim path$ : path$ = Dir_Current$+"\"
dim KGF$ : KGF$ = path$+"KGF.dll"
dim BDR$ : BDR$ = path$+"BDR.dll"
dim T$ :T$ = "KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/"
dim D$ :D$ = path$+"temp\"
dim Fic$ : Fic$ = D$+"Versions.txt"
End_Sub

Sub Labels()
Label Clic,Clic2
End_Sub

' _______________________________________________________________INITIALISATIONS

Sub Init()
KGF_initialize(KGF$)
BDRinitialize(BDR$)

KGFdllversion()
vKGF$ = KGFdllversion$

BDRversion(vers$)
vBDR$ = BDRversion$
End_Sub

' _____________________________________________________________________INTERFACE

Sub GUI()
Dim_local T%,Sep%,C$
O_Form(0,0,1,0,0,250,400,"KGF UPDATER")
font_name 0,"arial"
O_Alpha(10,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
font_color 10,0,0,255 :font_bold 10
T%=20
For i%= 1 to 5
T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
T%=20
For i%= 6 to 9
T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
For i%= 3 to 9
Sep%=instr(T$,"/")
C$=left$(T$,Sep%-1)
if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
Caption i%,C$
Next i%

caption 1,vKGF$
caption 2,vBDR$

O_Button(11,0,1,160,350,25,25,"q",1)
font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
hint 11,"Mise à jour"
O_Statut_Bar(12,0,1,0)
O_Alpha(13,0,1,height(0)-56,20,0,0,"")
O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
O_DList(15,"")
O_Button(16,0,1,160,100,0,150,"Autres fichiers à mettre à jour",1)
O_DList(17,"")

End_Sub

Sub F_Autre()
If object_exists(18)=0
O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
font_name 18,"arial"
O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
font_bold 19 : font_color 19,0,0,255
O_List(23,18,1,30,10,150,364,"",0)
O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
hint 21,"Ajouter un fichier à la liste"
O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
hint 22,"Supprimer un fichier de la liste"
else
Show 18
end_if
End_Sub

Clic:
Clic%=Number_Click
Select Clic%
case 11 :Chargement()
case 16 :F_Autre()
case 21 :AjoutFich()
case 22 :SupprFich()
End_Select
return

Clic2:
For i%=1 to 9
If Clicked(i%)=1
If Checked(i%)=1
Nb_Fich%=Nb_Fich%+1
Else
Nb_Fich%=Nb_Fich%-1
End_if
End_if
Next i%
return

Sub AjoutFich()
if variable("File$")=1 : File$="" :End_if
O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
If File$<>""
item_add 17,File$
item_add 23,File$
End_if
End_Sub

Sub SupprFich()
if count(23)>0
If item_index$(23)<>""
Item_delete 17,item_index(23)
Item_delete 23,item_index(23)
end_if
else
if message_warning_ok("Liste vide !")=1:end_if
end_if
End_Sub

Sub Chargement()
Dim_local x%,nf%,cpt%,i$,dir$
if Dir_exists(D$)=0 :Dir_Make D$ : End_if
for x%=1 to 9 :inactive x% :next x%
caption 13,"Chargement des fichiers..."
display
show 14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
display
if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll") :position 14,position(14)+1:display:End_if
if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll") :position 14,position(14)+1:display:End_if
if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm") :position 14,position(14)+1:display:End_if
if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc") :position 14,position(14)+1:display:End_if
if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf") :position 14,position(14)+1:display:End_if
if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
if checked(9)=1:DownloadFile(url8$,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
position 14,0 :caption 13,""

' GetActualVersions(Fic$)
DownloadFile(url0$,fic$)
file_load 15,Fic$

if checked(1)=1
nf%=nf%+1
if vKGF$<>item_read$(15,1)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de KGF.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(KGF$):file_delete KGF$:End_if
free KGF_initialize : free KGF_res%
position 14,3 :display
file_rename D$+"KGF.dll",KGF$
' font_color 1,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"KGF.dll"
end_if
end_if

if checked(2)=1
nf%=nf%+1
if vBDR$<>item_read$(15,2)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de BDR.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(BDR$) then file_delete BDR$
position 14,3 :display
file_rename D$+"BDR.dll",BDR$
' font_color 2,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"BDR.dll"
end_if
end_if

nf% = Nb_Fich% -nf%
Min 14,0 :Max 14,nf%
caption 13,"Mise à jour des fichiers"
if checked(3)=1
if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
' font_color 3,10,120,0
position 14,position(14)+1 :display
end_if
if checked(4)=1
if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
file_rename D$+"KGF.chm",path$+"KGF.chm"
' font_color 4,10,120,0
position 14,position(14)+1 :display
end_if
if checked(5)=1
if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
file_rename D$+"KGF.doc",path$+"KGF.doc"
' font_color 5,10,120,0
position 14,position(14)+1 :display
end_if
if checked(6)=1
if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
file_rename D$+"KGF.pdf",path$+"KGF.pdf"
' font_color 6,10,120,0
position 14,position(14)+1 :display
end_if
if checked(7)=1
if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
' font_color 7,10,120,0
position 14,position(14)+1 :display
end_if
if checked(8)=1
if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
' font_color 8,10,120,0
position 14,position(14)+1 :display
end_if
if checked(9)=1
if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
' font_color 9,10,120,0
position 14,position(14)+1 :display
end_if

if object_exists(18)=1
cpt%=count(23):nf%=0
Min 14,0 :Max 14,cpt% : position 14,0
caption 13,"Mise à jour des fichiers annexes..."
If Count(23)>0
for x%=1 to cpt%
i$=item_read$(23,1)
dir$=file_extract_path$(i$)
file_delete i$
if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
item_delete 17,1
item_delete 23,1
nf%=nf%+1
position 14,nf%
display
next x%
caption 13,""
hide 18
End_if
End_if

if variable("KGF_initialize")=0
KGF_initialize(KGF$)
BDRinitialize(BDR$)

KGFdllversion()
vKGF$ = KGFdllversion$

BDRversion(vers$)
vBDR$ = BDRversion$

caption 1,vKGF$
caption 2,vBDR$
end_if

for x%=1 to 9 :active x% :mark_off x% :next x%
Nb_Fich%=0
file_delete D$+"Versions.txt"
Dir_Remove D$
position 14,0 :caption 13,"" :hide 14
End_Sub

#include "OBJ_SUB.bas"
#include "KGF_SUB.bas"

Tu vas récupérer la version V2.34 du site FunPic.org, avec cette fois une fonction GetActualVersion à jour cherchant la liste des versions sur FunPic.org. Et à partir de ce moment, tu pourras revenir à ta version, car ensuite, on cherchera la liste des versions sur le bon site.

Désolé, mais ce genre de désagréments arrive lorsqu'on change de site !

Exact Klaus !

Je viens de faire des interruptions de programme avec des [message "ok"]
cela m'a permis de voir que les fichiers chargés sont bons mais que c'était le
fichier "versions.txt" qui indiquait toujours la version 2.33.
Par conséquent, les comparaisons étaient faussées...

Ce n'est pas grave mais je pense que tu pourrais, pour une fois faire appel
à un fichier *.ini contenant pour ces fonctions l' adresse du site et des fichiers à charger
pour ces fonctions. Sinon, à chaque fois que tu changeras d'hébergeur tu auras tout à ré écrire.

Bon, ca y est, j' ai tout mis à jour et cela fonctionne !... Laughing

Le fichier versions.txt est à jour, entretemps, sur le site FunPic.org. Je me suis mélangé un peu les pinceaux, pour le déménagement de mon site... Tout ira bien maintenant.

On s' est croisé...

J'ai tout mis à jour et cela fonctionne ... Laughing

Ps: ma petite appli est sur le webdav avec la bonne dll et le bon kgf_sub.bas

Ainsi, tout est bien qui finit bien. Merci d'avoir joué au cobaye !

Changement d'hébergeur de mon site Cobaye10

Mais de rien.... Laughing

» Changement de site WEB
» Changement d'aspect du site
» @Jack: Changement du lien vers mon site
» Changement de nom
» Changement de WebDav !