dir repertoires et fichiers

Sujet: Re: dir repertoires et fichiers Mar 11 Oct 2011 - 22:39

Hallo JL35,
Prüfe mal im Gerätemanager den USB - Controller Gelbes Ausfufezeichen ?
Bei Windows 7
Systemsteuerung
Gerätemanager
Severin

JL35 Hello,
Check times in the Device Manager, USB - Yellow Ausfufezeichen controller?
With Windows 7
control Panel
device Manager
Severin

JL35 Bonjour,
Vérifiez fois dans le Gestionnaire de périphériques, USB - Jaune contrôleur Ausfufezeichen?
Avec Windows 7
Panneau de configuration
Gestionnaire de périphériques
Severin

Sujet: Re: dir repertoires et fichiers Mar 11 Oct 2011 - 23:13

Je ne pense pas que ce soit un problème de configuration de mes prises usb dans Windows, puisqu'elles sont parfaitement reconnues par toutes mes autres applications.

@minifly disons que je développe les boutons esquissés par Severin (sauf 'sauvegarder' je ne vois pas à quoi ça sert) et d'autres: des boutons Aperçu, Propriétés, Renommer, Copier, Supprimer...

Sujet: Re: dir repertoires et fichiers Mar 11 Oct 2011 - 23:22

Très bien ( je rigolais pour la chèvre ). Je n'aurais jamais oser t'envoyer une chèvre par mail.

Sujet: Re: dir repertoires et fichiers Mar 11 Oct 2011 - 23:44

Tu l'aurais envoyée en port dû en plus...
au moins tu connais tes classiques.

Sujet: Re: dir repertoires et fichiers Mer 12 Oct 2011 - 21:40

Hallo JL35, 659 minifly,
ich will gerade die Form für das Verzeichnis - Utiliti entwerfen.
Dabei fällt mir auf das mein CD-Laufwerk nicht angezeigt wird.
Ist das bei euch auch so ? Ein Bug in DIR_XXXX affraid

Ich werde das Utiliti demnächst hier einstellen.
Severin

JL35 Hello, 659 minifly,
I just want the form to the directory - design utilities.
It does not appear, I notice that my CD drive.
Is that with you too? A bug in DIR_XXXX affraid

I set the utilities are coming soon.
Severin

JL35 Bonjour, 659 minifly,
Je veux juste le formulaire à l'annuaire - utilitaires de conception.
Il ne semble pas, je remarque que mon lecteur de CD.
Est-ce avec vous aussi? Un bug dans DIR_XXXX affraid

J'ai mis les utilitaires sont à venir.
Severin

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 20:30

hallo an alle,

hier ein Entwurf für Dateien verschieben. Auf Grundlage der Programm von 659 Minifly.
Weitere Anregungen und Verbesserungen erwünscht.
Die Endgültigen Funktionen wenn Jach die File Befehle fertig hat.

Danke für eure Zeit dies zulesen und zu kommentieren.
Severin

Hello to all,

move here for a draft files. Based on the program of 659 Minifly.
Other suggestions and improvements welcome.
The Final Jach functions when the file has finished commands.

Thank you for your time and comment on this zulesen.
Severin

Bonjour à tous,

passer ici pour un projet de fichiers. Basé sur le programme de 659 Minifly.
Autres suggestions et améliorations bienvenues.
Les fonctions Jach final quand le fichier a fini de commandes.

Merci pour votre temps et votre commentaire sur cette zulesen.
Severin

Code:: ' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
' *** LeftLabel definieren *********************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
' *** RightLabel definieren *********************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' *** LeftVariable definieren ******************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren ******************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
' *** LeftFill Variable ************************************************************
' LeftDirList% = 2010
LeftList_Dirlist% = 2020
LeftEdit_Dirlist% = 2030
LeftList_File_list% = 2040
'
Butt01_Dirlist% = 2051
Butt02_Dirlist% = 2052
Butt03_Dirlist% = 2053
Butt04_Dirlist% = 2054
Butt05_Dirlist% = 2055
'
' *** RightFill Variable ************************************************************
' RightDirList% = 3010
RightList_Dirlist% = 3020
RightEdit_Dirlist% = 3030
RightList_File_list% = 3040
'
'
' ******************************************************************************
' LeftDirList
' ******************************************************************************
' Form LeftDirList%
top LeftDirList%,0100
left LeftDirList%,0100
width LeftDirList%,1000
height LeftDirList%,0800
caption LeftDirList%," Copy to Copy " :' "Répertoires"
'
' Command_Target_is LeftDirList%
'
' *** LeftListe links **************************************************************
'
list LeftList_Dirlist%
top LeftList_Dirlist%,0150
left LeftList_Dirlist%,020
width LeftList_Dirlist%,205
height LeftList_Dirlist%,0400
'
' *** LeftListe rechts *************************************************************
'
list LeftList_File_list%
top LeftList_File_list%,0150
left LeftList_File_list%,245
width LeftList_File_list%,205
height LeftList_File_list%,0400
'
'
' *** RightListe rechts *************************************************************
'
list RightList_File_list%
top RightList_File_list%,0150
left RightList_File_list%,550
width RightList_File_list%,205
height RightList_File_list%,0400
'
' *** RightListe links **************************************************************
'
list RightList_Dirlist%
top RightList_Dirlist%,0150
left RightList_Dirlist%,775
width RightList_Dirlist%,205
height RightList_Dirlist%,0400
'
' stop
' *** LeftAnzeige PFAD *************************************************************
'
edit LeftEdit_Dirlist%
left LeftEdit_Dirlist%,020
top LeftEdit_Dirlist%,020
width LeftEdit_Dirlist%,430
'
'
' *** RightAnzeige PFAD *************************************************************
'
edit RightEdit_Dirlist%
left RightEdit_Dirlist%,550
top RightEdit_Dirlist%,020
width RightEdit_Dirlist%,430
'
' stop
' *** BUTTON "Quit" ************************************************************
'
button Butt01_Dirlist%
Left Butt01_Dirlist%,460
top Butt01_Dirlist%,500
width Butt01_Dirlist%,080
height Butt01_Dirlist%,025
Caption Butt01_Dirlist%,"Quit"
On_Click Butt01_Dirlist%,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy" dieses File ************************************************
'
button Butt02_Dirlist%
Left Butt02_Dirlist%,460
top Butt02_Dirlist%,400
width Butt02_Dirlist%,080
height Butt02_Dirlist%,025
Caption Butt02_Dirlist%,"===> Copy"
'
' *** BUTTON "Save" dieses File ************************************************
'
button Butt03_Dirlist%
Left Butt03_Dirlist%,460
top Butt03_Dirlist%,300
width Butt03_Dirlist%,080
height Butt03_Dirlist%,025
Caption Butt03_Dirlist%,"Copy <==="
'
' *** LeftBUTTON aktivieren *************************************************************
'
button Butt04_Dirlist%
Left Butt04_Dirlist%,020
top Butt04_Dirlist%,100
width Butt04_Dirlist%,430
height Butt04_Dirlist%,025
Caption Butt04_Dirlist%,"Aktivieren this Direktory on the left Side"

' *** Right BUTTON aktivieren *************************************************************
button Butt05_Dirlist%
Left Butt05_Dirlist%,550
top Butt05_Dirlist%,100
width Butt05_Dirlist%,430
height Butt05_Dirlist%,025
Caption Butt05_Dirlist%,"Aktivieren this Direktory on the right Side"
'
on_click Butt04_Dirlist%,Linke_Seite
on_click Butt05_Dirlist%,Rechte_Seite

' hide DirList%
Linke_Seite:
gosub LeftSub_open_dialog
end
' Ouverture du dialogue repertoire
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text LeftEdit_dirList%, Dir_Current$
Item_add LeftList_DirList%,".."
gosub LeftRep_List
'
on_click LeftList_DirList%,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear LeftList_DirList%
clear LeftList_File_List%

item_add LeftList_DirList%,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add LeftList_DirList%,Lefta$
if LeftTest%>0 then item_add LeftList_File_List%,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( LeftList_DirList%)
Leftchaine$=item_read$ ( LeftList_DirList%,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text LeftEdit_dirList%, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add LeftList_DirList%,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return

End
End
End
End
End
End

' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
'
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text RightEdit_dirList%, Dir_Current$
Item_add RightList_DirList%,".."
gosub RightRep_List
'
on_click RightList_DirList%,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear RightList_DirList%
clear RightList_File_List%

item_add RightList_DirList%,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add RightList_DirList%,Righta$
if Righttest%>0 then item_add RightList_File_List%,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( RightList_DirList%)
Rightchaine$=item_read$ ( RightList_DirList%,test%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-i%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text RightEdit_dirList%, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add RightList_DirList%,Righta$+":"
end_if

Return
'
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 21:55

Bonsoir Severin,
Je vois que tu as eu à peu près la même idée que moi (les deux fenêtres).

J'ai toujours des erreurs dans la fonction Disk.
Mais j'ai aussi un blocage à l'exécution (Not Correct String Expression Line 366) quand je veux changer de répertoire dans la liste de droite.

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 22:21

I have the same error when i navigate in Program: Not Correct String Expression Line 366

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 22:26

Hallo JL35,

einige variablen nicht richtig, verbessert.
Copy noch keine Funktion.
Schriftart muß noch eingepaßt werden.
Ich will noch ein extra feld für Laufwerk Kennung.
Aber das ist alles noch ein Gedankenspiel, wie es sein könnte.
Ich hoffe das 659 minifly auch noch mitmacht. Ich habe euren Dialog
leider nicht vestanden. Bei der Übersetzung war nur von Ziege die Rede.
Auch alle anderen Panoramics sind eingeladen mitzumachen.

Severin

Bonjour JL35,

une variable pas correctement améliorée.
Copiez aucune fonction.
Font doit être monté.
Je veux encore un champ supplémentaire pour l'identification d'entraînement.
Mais tout cela est un jeu mental tel qu'il pourrait être.
J'espère que le 659 minifly aussi se joindre à ce jour. J'ai votre dialogue
malheureusement pas Vesta extrémités. Lors de la traduction de chèvre était le seul discours.
Tous les autres Panoramiques sont invités à se joindre.

Severin

Hello JL35,

some variable not properly improved.
Copy no function.
Font must be fitted.
I still want an extra field for drive identification.
But all this is a mental game as it could be.
I hope the 659 minifly also join in yet. I have your dialogue
unfortunately not vesta ends. When translating from goat was the only speech.
All other Panoramics are invited to join.

Severin

Code:: ' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
' *** LeftLabel definieren *********************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
' *** RightLabel definieren *********************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' ***********************************************************************************************************************************
' *** LABEL FÜR SCHRIFTEN ANLEGEN ***************************************************************************************************
label SCHRIFTARTSYMBOLschwarz :label SCHRIFTARTSYMBOLrot
label SCHRIFTARTSYMBOLschwarz12:label SCHRIFTARTSYMBOLrot12
' ******************************************************************************
label SCHRIFTART08N:label SCHRIFTART09N:label SCHRIFTART10N:label SCHRIFTART11N
label SCHRIFTART12N:label SCHRIFTART15N:label SCHRIFTART20N
' ******************************************************************************
label SCHRIFTART08F
label SCHRIFTART09F
label SCHRIFTART10F
label SCHRIFTART11F
label SCHRIFTART12F
label SCHRIFTART15F
label Schriftart20F
' ******************************************************************************
label SCHRIFTART08FU:label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU
label SCHRIFTART12FU:label SCHRIFTART15FU:label Schriftart20FU
' ******************************************************************************
label Schriftart09NR
label Schriftart11NR
'
DIM SCHRIFTART
' *** LeftVariable definieren ******************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren ******************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
' *** LeftFill Variable ************************************************************
' LeftDirList% = 2010
LeftList_Dirlist% = 2020
LeftEdit_Dirlist% = 2030
LeftList_File_list% = 2040
'
Butt01_Dirlist% = 2051
Butt02_Dirlist% = 2052
Butt03_Dirlist% = 2053
Butt04_Dirlist% = 2054
Butt05_Dirlist% = 2055
'
' *** RightFill Variable ************************************************************
' RightDirList% = 3010
RightList_Dirlist% = 3020
RightEdit_Dirlist% = 3030
RightList_File_list% = 3040
'
'
' ******************************************************************************
' LeftDirList
' ******************************************************************************
' Form LeftDirList%
top LeftDirList%,0100
left LeftDirList%,0100
width LeftDirList%,1000
height LeftDirList%,0800
caption LeftDirList%," Copy to Copy " :' "Répertoires"
'
' Command_Target_is LeftDirList%
'
' *** LeftListe links **************************************************************
'
list LeftList_Dirlist%
top LeftList_Dirlist%,0150
left LeftList_Dirlist%,0020
width LeftList_Dirlist%,0205
height LeftList_Dirlist%,0400
'
' *** LeftListe rechts *************************************************************
'
list LeftList_File_list%
top LeftList_File_list%,0150
left LeftList_File_list%,0245
width LeftList_File_list%,0205
height LeftList_File_list%,0400
'
'
' *** RightListe rechts *************************************************************
'
list RightList_File_list%
top RightList_File_list%,0150
left RightList_File_list%,0550
width RightList_File_list%,0205
height RightList_File_list%,0400
'
' *** RightListe links **************************************************************
'
list RightList_Dirlist%
top RightList_Dirlist%,0150
left RightList_Dirlist%,0775
width RightList_Dirlist%,0205
height RightList_Dirlist%,0400
'
' stop
' *** LeftAnzeige PFAD *************************************************************
'
edit LeftEdit_Dirlist%
left LeftEdit_Dirlist%,020
top LeftEdit_Dirlist%,020
width LeftEdit_Dirlist%,430
'
'
' *** RightAnzeige PFAD *************************************************************
'
edit RightEdit_Dirlist%
left RightEdit_Dirlist%,550
top RightEdit_Dirlist%,020
width RightEdit_Dirlist%,430
'
' stop
' *** BUTTON "Quit" ************************************************************
'
button Butt01_Dirlist%
Left Butt01_Dirlist%,460
top Butt01_Dirlist%,500
width Butt01_Dirlist%,080
height Butt01_Dirlist%,025
Caption Butt01_Dirlist%,"Quit"
On_Click Butt01_Dirlist%,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy" dieses File ************************************************
'
button Butt02_Dirlist%
Left Butt02_Dirlist%,460
top Butt02_Dirlist%,400
width Butt02_Dirlist%,080
height Butt02_Dirlist%,025
' SCHRIFTART = Butt02_Dirlist%
' gosub Schriftart10F
Caption Butt02_Dirlist%,"===> Copy"
'
' *** BUTTON "Save" dieses File ************************************************
'
button Butt03_Dirlist%
Left Butt03_Dirlist%,460
top Butt03_Dirlist%,300
width Butt03_Dirlist%,080
height Butt03_Dirlist%,025
Caption Butt03_Dirlist%,"Copy <==="
'
' *** LeftBUTTON aktivieren *************************************************************
'
button Butt04_Dirlist%
Left Butt04_Dirlist%,020
top Butt04_Dirlist%,0080
width Butt04_Dirlist%,430
height Butt04_Dirlist%,025
Caption Butt04_Dirlist%,"Aktivieren this Direktory on the left Side"

' *** Right BUTTON aktivieren *************************************************************
button Butt05_Dirlist%
Left Butt05_Dirlist%,550
top Butt05_Dirlist%,0080
width Butt05_Dirlist%,430
height Butt05_Dirlist%,025
Caption Butt05_Dirlist%,"Aktivieren this Direktory on the right Side"
'
on_click Butt04_Dirlist%,Linke_Seite
on_click Butt05_Dirlist%,Rechte_Seite

' hide DirList%
Linke_Seite:
gosub LeftSub_open_dialog
end
' Ouverture du dialogue repertoire
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text LeftEdit_dirList%, Dir_Current$
Item_add LeftList_DirList%,".."
gosub LeftRep_List
'
on_click LeftList_DirList%,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear LeftList_DirList%
clear LeftList_File_List%

item_add LeftList_DirList%,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add LeftList_DirList%,Lefta$
if LeftTest%>0 then item_add LeftList_File_List%,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( LeftList_DirList%)
Leftchaine$=item_read$ ( LeftList_DirList%,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text LeftEdit_dirList%, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add LeftList_DirList%,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return

End
End
End
End
End
End

' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
'
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text RightEdit_dirList%, Dir_Current$
Item_add RightList_DirList%,".."
gosub RightRep_List
'
on_click RightList_DirList%,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear RightList_DirList%
clear RightList_File_List%

item_add RightList_DirList%,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add RightList_DirList%,Righta$
if Righttest%>0 then item_add RightList_File_List%,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( RightList_DirList%)
Rightchaine$=item_read$ ( RightList_DirList%,Righttest%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text RightEdit_dirList%, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add RightList_DirList%,Righta$+":"
end_if

Return
'
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return

' ***********************************************************************************************************************************
' ***********************************************************************************************************************************
' SUBPROGRAMME FÜR SCHRIFTARTEN *****************************************************************************************************
' ***********************************************************************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 08 Normal
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
Schriftart10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 22:49

Works fine now Smile

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 22:56

Merci Severin, effectivement ça fonctionne maintenant.

Sujet: Re: dir repertoires et fichiers Jeu 13 Oct 2011 - 23:47

The last Version for thie Day. Next Version Samstag.

Good Night
Severin

Code:: ' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
' *** LeftLabel definieren *********************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
' *** RightLabel definieren *********************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' ***********************************************************************************************************************************
' *** LABEL FÜR SCHRIFTEN ANLEGEN ***************************************************************************************************
label SCHRIFTARTSYMBOLschwarz
label SCHRIFTARTSYMBOLrot
label SCHRIFTARTSYMBOLschwarz12
label SCHRIFTARTSYMBOLrot12
' ******************************************************************************
label SCHRIFTART08N:label SCHRIFTART09N:label SCHRIFTART10N:label SCHRIFTART11N
label SCHRIFTART12N:label SCHRIFTART15N:label SCHRIFTART20N
' ******************************************************************************
label SCHRIFTART08F
label SCHRIFTART09F
label SCHRIFTART10F
label SCHRIFTART11F
label SCHRIFTART12F
label SCHRIFTART15F
label Schriftart20F
' ******************************************************************************
label SCHRIFTART08FU:label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU
label SCHRIFTART12FU:label SCHRIFTART15FU:label Schriftart20FU
' ******************************************************************************
label Schriftart09NR
label Schriftart11NR
'
DIM SCHRIFTART
' *** LeftVariable definieren ******************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren ******************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
Dim TextaufButton$(10)
'
TextaufButton$(01) = "Quit"
TextaufButton$(02) = "===> Copy"
TextaufButton$(03) = "Copy <==="
TextaufButton$(04) = "Aktivieren this Direktory on the left Side"
TextaufButton$(05) = "Aktivieren this Direktory on the right Side"

' *** LeftFill Variable ************************************************************
' LeftDirList% = 2010
LeftList_Dirlist% = 2020
LeftEdit_Dirlist% = 2030
LeftList_File_list% = 2040
'
'
' *** RightFill Variable ************************************************************
' RightDirList% = 3010
RightList_Dirlist% = 3020
RightEdit_Dirlist% = 3030
RightList_File_list% = 3040
'
'
' ******************************************************************************
' LeftDirList
' ******************************************************************************
' Form LeftDirList%
top LeftDirList%,0100
left LeftDirList%,0100
width LeftDirList%,1000
height LeftDirList%,0800
caption LeftDirList%," Copy <== to ==> Copy "
'
' Command_Target_is LeftDirList%
'
' *** LeftListe links **************************************************************
'
list LeftList_Dirlist%
top LeftList_Dirlist%,0150
left LeftList_Dirlist%,0020
width LeftList_Dirlist%,0205
height LeftList_Dirlist%,0400
'
' *** LeftListe rechts *************************************************************
'
list LeftList_File_list%
top LeftList_File_list%,0150
left LeftList_File_list%,0245
width LeftList_File_list%,0205
height LeftList_File_list%,0400
'
'
' *** RightListe rechts *************************************************************
'
list RightList_File_list%
top RightList_File_list%,0150
left RightList_File_list%,0550
width RightList_File_list%,0205
height RightList_File_list%,0400
'
' *** RightListe links **************************************************************
'
list RightList_Dirlist%
top RightList_Dirlist%,0150
left RightList_Dirlist%,0775
width RightList_Dirlist%,0205
height RightList_Dirlist%,0400
'
' stop
' *** LeftAnzeige PFAD *************************************************************
'
edit LeftEdit_Dirlist%
left LeftEdit_Dirlist%,020
top LeftEdit_Dirlist%,020
width LeftEdit_Dirlist%,430
'
'
' *** RightAnzeige PFAD *************************************************************
'
edit RightEdit_Dirlist%
left RightEdit_Dirlist%,550
top RightEdit_Dirlist%,020
width RightEdit_Dirlist%,430
'
' stop
' *** BUTTON "Quit" ************************************************************
'
button 2024
Left 2024,460
top 2024,500
width 2024,080
height 2024,025
SCHRIFTART = 2024
gosub SCHRIFTART10F
Caption 2024,TextaufButton$(01)
On_Click 2024,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy ===>" dieses File ************************************************
'
button 2025
Left 2025,460
top 2025,400
width 2025,080
height 2025,025
SCHRIFTART = 2025
gosub SCHRIFTART10F
Caption 2025,TextaufButton$(02)
'
' *** BUTTON "<=== Copy" dieses File ************************************************
'
button 2026
Left 2026,460
top 2026,300
width 2026,080
height 2026,025
SCHRIFTART = 2026
gosub SCHRIFTART10F
Caption 2026,TextaufButton$(03)
'
' *** LeftBUTTON aktivieren *************************************************************
'
button 2027
Left 2027,020
top 2027,0080
width 2027,430
height 2027,025
SCHRIFTART = 2027
gosub SCHRIFTART10F
Caption 2027,TextaufButton$(04)
'
' *** Right BUTTON aktivieren *************************************************************
button 2028
Left 2028,550
top 2028,0080
width 2028,430
height 2028,025
SCHRIFTART = 2028
gosub SCHRIFTART10F
Caption 2028,TextaufButton$(05)
'
'
on_click 2027,Linke_Seite
on_click 2028,Rechte_Seite

' hide DirList%
Linke_Seite:
gosub LeftSub_open_dialog
end
' Ouverture du dialogue repertoire
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text LeftEdit_dirList%, Dir_Current$
Item_add LeftList_DirList%,".."
gosub LeftRep_List
'
on_click LeftList_DirList%,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear LeftList_DirList%
clear LeftList_File_List%

item_add LeftList_DirList%,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add LeftList_DirList%,Lefta$
if LeftTest%>0 then item_add LeftList_File_List%,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( LeftList_DirList%)
Leftchaine$=item_read$ ( LeftList_DirList%,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text LeftEdit_dirList%, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add LeftList_DirList%,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return

End
End
End
End
End
End

' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
'
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text RightEdit_dirList%, Dir_Current$
Item_add RightList_DirList%,".."
gosub RightRep_List
'
on_click RightList_DirList%,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear RightList_DirList%
clear RightList_File_List%

item_add RightList_DirList%,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add RightList_DirList%,Righta$
if Righttest%>0 then item_add RightList_File_List%,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( RightList_DirList%)
Rightchaine$=item_read$ ( RightList_DirList%,Righttest%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text RightEdit_dirList%, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add RightList_DirList%,Righta$+":"
end_if

Return
'
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return
end

' ***********************************************************************************************************************************
' ***********************************************************************************************************************************
' SUBPROGRAMME FÜR SCHRIFTARTEN *****************************************************************************************************
' ***********************************************************************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 08 Normal
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
SCHRIFTART10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************

Sujet: Re: dir repertoires et fichiers Ven 14 Oct 2011 - 16:32

Hello severin ! Smile

Je pense qu'il y a un problème avec la fonction DISK_EXISTS(A$)....
j'obtiens un message d'erreur sur le lecteur de DVD (qui ne contient pas de disque)

Sad

Sujet: Re: dir repertoires et fichiers Ven 14 Oct 2011 - 17:01

Tiens tiens, enfin je ne suis pas tout seul, moi aussi j'ai des erreurs sur certains lecteurs, ce qui rend pour moi la fonction inutilisable, bien que séduisante au départ.
Du coup dans mon explorateur perso j'ai remplacé ça par un script vbs intégré qui lui ne fait pas d'erreur.

Sujet: Re: dir repertoires et fichiers Ven 14 Oct 2011 - 17:34

Il me semble qu'à l'époque, Klaus avait intégré une fonction pour ça....

Sujet: Re: dir repertoires et fichiers Ven 14 Oct 2011 - 18:20

Oui Klaus avait fait une dll tout à fait satisfaisante, avec résultat soit dans un fichier soit dans le clipboard je crois. Mais c'est une ressource externe, je préfère mon script qui est intégré au programme (lignes de datas).

Sujet: Re: dir repertoires et fichiers Sam 15 Oct 2011 - 2:35

Hier eine erweitere Version.
Wenn eine CD eingelegt ist, wird das Laufwerk problemlos erkannt.
Habe auch mit 3 USB-Stick getestet. Alles ok.
Habt ihr noch Vorschläge, zur Verbesserung ? Question

Here, an extended version.
When a CD is inserted, the drive is recognized without problems.
I also tested with 3 USB-stick. Everything ok.
Do you still have suggestions for improvement? Question

Ici, une version étendue.
Lorsqu'un CD est inséré, le lecteur est reconnu sans problème.
J'ai aussi testé avec 3 clé USB. Tout ok.
Avez-vous encore des suggestions d'amélioration? Question

Severin

Code:: ' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
' *** LABEL FÜR HAUPTMENÜ DEFINIEREN ************************************************
label Zahl1100:label Zahl1200:label Zahl1300:label Zahl1400:label Zahl1500
label Zahl1600:label Zahl1700:label Zahl1800:label Zahl1900
'
label Zahl2100
'
Label PROGRAMM
' *** LeftLabel definieren *********************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
' *** RightLabel definieren *********************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' *** language setting
Label German
Label French
Label English
Label FREI
' ***********************************************************************************************************************************
' *** LABEL FÜR SCHRIFTEN ANLEGEN ***************************************************************************************************
label SCHRIFTARTSYMBOLschwarz
label SCHRIFTARTSYMBOLrot
label SCHRIFTARTSYMBOLschwarz12
label SCHRIFTARTSYMBOLrot12
' ******************************************************************************
label SCHRIFTART08N:label SCHRIFTART09N:label SCHRIFTART10N:label SCHRIFTART11N
label SCHRIFTART12N:label SCHRIFTART15N:label SCHRIFTART20N
' ******************************************************************************
label SCHRIFTART08F
label SCHRIFTART09F
label SCHRIFTART10F
label SCHRIFTART11F
label SCHRIFTART12F
label SCHRIFTART15F
label Schriftart20F
' ******************************************************************************
label SCHRIFTART08FU:label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU
label SCHRIFTART12FU:label SCHRIFTART15FU:label Schriftart20FU
' ******************************************************************************
label Schriftart09NR
label Schriftart11NR
'
DIM SCHRIFTART
' *** LeftVariable definieren ******************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren ******************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
' *** LeftFill Variable ************************************************************
' LeftDirList% = 2010
' LeftList_Dirlist% = 2020
' LeftEdit_Dirlist% = 2030
' LeftList_File_list% = 2040
' *** RightFill Variable ************************************************************
' RightDirList% = 3010
' RightList_Dirlist% = 3020
' RightEdit_Dirlist% = 3030
' RightList_File_list% = 3040
' ******************************************************************************
list 9000:hide 9000
list 9001:hide 9001
list 9002:hide 9002
list 9003:hide 9003
'
edit 9100:hide 9100
edit 9101:hide 9101
'
ALPHA 9200:hide 9200
ALPHA 9201:hide 9201
'
COMBO 9300:hide 9300
COMBO 9301:hide 9301
'
button 2024:hide 2024
button 2025:hide 2025
button 2026:hide 2026
button 2027:hide 2027
button 2028:hide 2028
'
Dim TextaufButton$(100)
Dim TextaufForm$(100)
Dim FORM_TEXT$(100)
'
FORM_TEXT$(00) = " language setting "
FORM_TEXT$(01) = " German "
FORM_TEXT$(02) = " French "
FORM_TEXT$(03) = " English "
FORM_TEXT$(04) = " *** "
FORM_TEXT$(05) = " *** "
FORM_TEXT$(06) = " *** "
FORM_TEXT$(07) = " *** "
FORM_TEXT$(08) = " *** "
FORM_TEXT$(09) = " *** "
FORM_TEXT$(10) = " About "
FORM_TEXT$(11) = " *** "
'
' ******************************************************************************
' *** Form 000 *****************************************************************
color 000,0,255,0
top 000,0100
left 000,0100
width 000,1000
height 000,0800
caption 000," Copy <== to ==> Copy "
border_normal 000
'
Command_Target_is 000
'
' *** Hauptmenü erstellen ******************************************************
main_menu 001
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:caption 1000,FORM_TEXT$(00) :parent 1000,001
sub_menu 2000:caption 2000,FORM_TEXT$(10) :parent 2000,001
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1100:caption 1100,FORM_TEXT$(01) :parent 1100,1000
sub_menu 1200:caption 1200,FORM_TEXT$(02) :parent 1200,1000
sub_menu 1300:caption 1300,FORM_TEXT$(03) :parent 1300,1000
sub_menu 1400:caption 1400,FORM_TEXT$(04) :parent 1400,1000
sub_menu 1500:caption 1500,FORM_TEXT$(05) :parent 1500,1000
sub_menu 1600:caption 1600,FORM_TEXT$(06) :parent 1600,1000
sub_menu 1700:caption 1700,FORM_TEXT$(07) :parent 1700,1000
sub_menu 1800:caption 1800,FORM_TEXT$(08) :parent 1800,1000
sub_menu 1900:caption 1900,FORM_TEXT$(09) :parent 1900,1000
' *** ERSTELLEN UNTERMENÜ 2100 bis 2900 ***************************************
sub_menu 2100:caption 2100,FORM_TEXT$(11) :parent 2100,2000
'
' *** on_click
on_click 1100,Zahl1100
on_click 1200,Zahl1200
on_click 1300,Zahl1300
on_click 1400,Zahl1400
on_click 1500,Zahl1500
on_click 1600,Zahl1600
on_click 1700,Zahl1700
on_click 1800,Zahl1800
on_click 1900,Zahl1900
' ***
on_click 2100,Zahl2100
end
' ******************************************************************************

Zahl1100:
Gosub German
Gosub PROGRAMM

Zahl1200:
Gosub French
Gosub PROGRAMM

Zahl1300:
Gosub English
Gosub PROGRAMM

Zahl1400:
GOSUB FREI

Zahl1500:
GOSUB FREI

Zahl1600:
GOSUB FREI

Zahl1700:
GOSUB FREI

Zahl1800:
GOSUB FREI

Zahl1900:
GOSUB FREI

Zahl2100:
GOSUB FREI
'
' ******************************************************************************
PROGRAMM:
'
Command_Target_is 000
'
' *** Verzeichnis Liste links **************************************************
' stop
top 9000,0150
left 9000,0020
width 9000,0205
height 9000,0360
show 9000
'
' *** LeftListe rechts *************************************************************
'
top 9001,0150
left 9001,0245
width 9001,0205
height 9001,0420
show 9001
'
'
' *** RightListe rechts *************************************************************
'
top 9002,0150
left 9002,0550
width 9002,0205
height 9002,0420
show 9002
'
' *** RightListe links **************************************************************
'
top 9003,0150
left 9003,0775
width 9003,0205
height 9003,0360
show 9003
'
' *** LeftAnzeige PFAD *************************************************************
'
left 9100,020
top 9100,020
width 9100,430
show 9100
'
'
' *** RightAnzeige PFAD ********************************************************
'
left 9101,550
top 9101,020
width 9101,430
show 9101
'
' *** 1. Eingabe Neue Projekt-Nummer -- ***************************************
'
top 9200,535
left 9200,040
SCHRIFTART = 9200
Gosub Schriftart11N
caption 9200,TextaufForm$(01)
show 9200
'
' *** COMBO ***
clear 9300
text 9300,"Projekt-Nr. auswählen"
top 9300,530
left 9300,170
width 9300,50
height 9300,20
color 9300,255,255,255
SCHRIFTART = 9300
Gosub Schriftart10N
hint 9300,"Projektnummer auswählen"
show 9300
'
' *** 1. Eingabe Neue Projekt-Nummer -- ***************************************
'
top 9201,535
left 9201,800
SCHRIFTART = 9201
Gosub Schriftart11N
caption 9201,TextaufForm$(01)
show 9201
'
' *** COMBO ***
clear 9301
text 9301,"Projekt-Nr. auswählen"
top 9301,530
left 9301,920
width 9301,50
height 9301,20
color 9301,255,255,255
SCHRIFTART = 9301
Gosub Schriftart10N
hint 9301,"Projektnummer auswählen"
show 9301
'
' *** BUTTON "Quit" ************************************************************
'
Left 2024,460
top 2024,500
width 2024,080
height 2024,025
SCHRIFTART = 2024
gosub SCHRIFTART10F
Caption 2024,TextaufButton$(01)
show 2024
On_Click 2024,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy ===>" dieses File ************************************************
'
Left 2025,460
top 2025,400
width 2025,080
height 2025,025
SCHRIFTART = 2025
gosub SCHRIFTART10F
Caption 2025,TextaufButton$(02)
show 2025
'
' *** BUTTON "<=== Copy" dieses File ************************************************
'
Left 2026,460
top 2026,300
width 2026,080
height 2026,025
SCHRIFTART = 2026
gosub SCHRIFTART10F
Caption 2026,TextaufButton$(03)
show 2026
'
' *** LeftBUTTON aktivieren *************************************************************
'
Left 2027,020
top 2027,0080
width 2027,430
height 2027,025
SCHRIFTART = 2027
gosub SCHRIFTART10F
Caption 2027,TextaufButton$(04)
show 2027
'
' *** Right BUTTON aktivieren *************************************************************
'
Left 2028,550
top 2028,0080
width 2028,430
height 2028,025
SCHRIFTART = 2028
gosub SCHRIFTART10F
Caption 2028,TextaufButton$(05)
show 2028
'
'
on_click 2027,Linke_Seite
on_click 2028,Rechte_Seite
end
'
' ******************************************************************************
' hide DirList%
Linke_Seite:
gosub LeftSub_open_dialog
end
' Ouverture du dialogue repertoire
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text 9100, Dir_Current$
Item_add 9000,".."
gosub LeftRep_List
'
on_click 9000,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear 9000
clear 9001

item_add 9000,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add 9000,Lefta$
if LeftTest%>0 then item_add 9001,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( 9000)
Leftchaine$=item_read$ ( 9000,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text 9100, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add 9000,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return
End
' ******************************************************************************
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text 9101, Dir_Current$
Item_add 9003,".."
gosub RightRep_List
'
on_click 9003,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear 9003
clear 9002

item_add 9003,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add 9003,Righta$
if Righttest%>0 then item_add 9002,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( 9003)
Rightchaine$=item_read$ ( 9003,Righttest%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text 9101, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add 9003,Righta$+":"
end_if

Return
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return
end
' *** SUBPROGRAMME FÜR SCHRIFTARTEN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 08 Normal
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
SCHRIFTART10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
German:
'
TextaufButton$(01) = "Beenden"
TextaufButton$(02) = "===> Copy"
TextaufButton$(03) = "Copy <==="
TextaufButton$(04) = "Aktivieren des linken Verzeichnis"
TextaufButton$(05) = "Aktivieren des rechten Verzeichnis"

TextaufForm$(00) = ""
TextaufForm$(01) = "Pfad"
TextaufForm$(02) = "Verzeichnisse"
TextaufForm$(03) = "Laufwerke"
TextaufForm$(04) = "Dateien"
TextaufForm$(05) = ""
TextaufForm$(06) = ""
TextaufForm$(07) = ""
TextaufForm$(08) = ""
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
French:
'
TextaufButton$(01) = "Fin"
TextaufButton$(02) = "===> copie"
TextaufButton$(03) = "copie <==="
TextaufButton$(04) = "Activation du répertoire gauche"
TextaufButton$(05) = "Activer le bon répertoire"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "chemin"
TextaufForm$(02) = "Annuaires"
TextaufForm$(03) = "Disques"
TextaufForm$(04) = "fichiers"
TextaufForm$(05) = ""
TextaufForm$(06) = ""
TextaufForm$(07) = ""
TextaufForm$(08) = ""
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
English:
'
TextaufButton$(01) = "End"
TextaufButton$(02) = "===> Copy"
TextaufButton$(03) = "Copy <==="
TextaufButton$(04) = "Activating the left directory"
TextaufButton$(05) = "Activating the right directory"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "path"
TextaufForm$(02) = "directories"
TextaufForm$(03) = "drives"
TextaufForm$(04) = "files"
TextaufForm$(05) = ""
TextaufForm$(06) = ""
TextaufForm$(07) = ""
TextaufForm$(08) = ""
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
'
FREI:
'
RETURN
END

Sujet: Re: dir repertoires et fichiers Sam 15 Oct 2011 - 21:17

Hier die neuste Version.
Achtung noch nicht alle Funktionen erstellt.
Es gibt tatsächlich ein Problem mit CD und DVD Laufwerken.
Habe bereits im Forum BUG berichtet.

Here is the latest version.
Attention has not created all the features.
It is indeed a problem with CD and DVD drives.
Have been reported in the BUG forum.

Voici la dernière version.
Attention, ne s'est pas créé toutes les fonctionnalités.
Il est en effet un problème avec les lecteurs CD et DVD.
Ont été signalés dans le forum BUG.

Esta es la última versión.
La atención no ha creado todas las características.
De hecho, es un problema con las unidades de CD y DVD.
Se han reportado en el foro ERROR.

Severin Sleep

Code:: ' *** Verzeichnisauswahl *******************************************************
' ******************************************************************************
'
' *** LABEL FÜR HAUPTMENÜ DEFINIEREN *******************************************
label Zahl1100:label Zahl1200:label Zahl1300:label Zahl1400:label Zahl1500
label Zahl1600:label Zahl1700:label Zahl1800:label Zahl1900
'
label Zahl2100
'
Label PROGRAMM
' *** LeftLabel definieren *****************************************************
Label LeftSub_Ferme_Dirlist
Label LeftRep_list
Label LeftSub_open_dialog
Label LeftSub_Choix_List
Label LeftSub_Peripheriques
Label LeftDisque
Label LeftSuite01
Label Linke_Seite
Label Rechte_Seite
'
Label LAUFWERK_ERMITTLUNG
' *** RightLabel definieren ****************************************************
Label RightSub_Ferme_Dirlist
Label RightRep_list
Label RightSub_open_dialog
Label RightSub_Choix_List
Label RightSub_Peripheriques
Label RightDisque
Label RightSuite01
'
' *** language setting *********************************************************
Label German
Label French
Label English
label Espanol
Label FREI
' *** LABEL FÜR SCHRIFTEN ANLEGEN **********************************************
label SCHRIFTARTSYMBOLschwarz
label SCHRIFTARTSYMBOLrot
label SCHRIFTARTSYMBOLschwarz12
label SCHRIFTARTSYMBOLrot12
' ******************************************************************************
label SCHRIFTART08N
label SCHRIFTART09N
label SCHRIFTART10N
label SCHRIFTART11N
label SCHRIFTART12N
label SCHRIFTART15N
label SCHRIFTART20N
' ******************************************************************************
label SCHRIFTART08F
label SCHRIFTART09F
label SCHRIFTART10F
label SCHRIFTART11F
label SCHRIFTART12F
label SCHRIFTART15F
label Schriftart20F
' ******************************************************************************
label SCHRIFTART08FU:label SCHRIFTART09FU:label SCHRIFTART10FU:label SCHRIFTART11FU
label SCHRIFTART12FU:label SCHRIFTART15FU:label Schriftart20FU
' ******************************************************************************
label Schriftart09NR
label Schriftart11NR
'
DIM SCHRIFTART
' ******************************************************************************
'
dim Laufwerk_tab$(26,4)
dim LW_j%
dim LW_i%
dim LW_k%
dim Laufwerk_nr$
dim Laufwerk_frei
dim Laufwerk_max
'
' *** LeftVariable definieren **************************************************
Dim LeftDirList%
Dim LeftList_Dirlist%
Dim LeftEdit_Dirlist%
Dim Butt01_Dirlist%
Dim Butt02_Dirlist%
Dim Butt03_Dirlist%
Dim Butt04_Dirlist%
Dim Butt05_Dirlist%
Dim LeftList_File_list%
Dim Lefta$
Dim LeftTest%
Dim Leftchaine$
Dim LeftRepertoire_Courant$
Dim LeftLong_Chaine%
Dim LeftSous_Chaine$
Dim Lefti%
'
' *** RightVariable definieren *************************************************
Dim RightDirList%
Dim RightList_Dirlist%
Dim RightEdit_Dirlist%
Dim RightList_File_list%
Dim Righta$
Dim RightTest%
Dim Rightchaine$
Dim RightRepertoire_Courant$
Dim RightLong_Chaine%
Dim RightSous_Chaine$
Dim Righti%
'
' ******************************************************************************
list 9000:hide 9000
list 9001:hide 9001
list 9002:hide 9002
list 9003:hide 9003
'
edit 9100:hide 9100
edit 9101:hide 9101
'
edit 9110:hide 9110:' DATA LINKS Speicherkapazität
edit 9111:hide 9111:' DATA LINKS Belegter Speicher
edit 9112:hide 9112:' DATA LINKS Freier Speicher
'
edit 9120:hide 9120:' DATA RECHTS Speicherkapazitä
edit 9121:hide 9121:' DATA RECHTS Belegter Speicher
edit 9122:hide 9122:' DATA RECHTS Freier Speicher
'
ALPHA 9200:hide 9200
ALPHA 9201:hide 9201
ALPHA 9202:hide 9202
ALPHA 9203:hide 9203
ALPHA 9204:hide 9204
ALPHA 9205:hide 9205
'
ALPHA 9210:hide 9210:' TEXT LINKS Speicherkapazität
ALPHA 9211:hide 9211:' TEXT LINKS Belegter Speicher
ALPHA 9212:hide 9212:' TEXT LINKS Freier Speicher
'
ALPHA 9220:hide 9220:' TEXT RECHTS Speicherkapazität
ALPHA 9221:hide 9221:' TEXT RECHTS Belegter Speicher
ALPHA 9222:hide 9222:' TEXT RECHTS Freier Speicher
'
COMBO 9300:hide 9300
COMBO 9301:hide 9301
'
button 2024:hide 2024
button 2025:hide 2025
button 2026:hide 2026
button 2027:hide 2027
button 2028:hide 2028
'
Dim TextaufButton$(100)
Dim TextaufForm$(100)
Dim FORM_TEXT$(100)
'
FORM_TEXT$(00) = " language setting "
FORM_TEXT$(01) = " German "
FORM_TEXT$(02) = " French "
FORM_TEXT$(03) = " English "
FORM_TEXT$(04) = " Español "
FORM_TEXT$(05) = " *** "
FORM_TEXT$(06) = " *** "
FORM_TEXT$(07) = " *** "
FORM_TEXT$(08) = " *** "
FORM_TEXT$(09) = " Quit "
FORM_TEXT$(10) = " About "
FORM_TEXT$(11) = " *** "
'
' ******************************************************************************
' *** Form 000 *****************************************************************
color 000,0,255,0
top 000,0100
left 000,0100
width 000,1000
height 000,0800
caption 000," Copy <== to ==> Copy "
border_normal 000
'
Command_Target_is 000
'
' *** Hauptmenü erstellen ******************************************************
main_menu 001
' *** ERSTELLEN DES HAUPTMENÜ 1000 bis 9000 ************************************
sub_menu 1000:caption 1000,FORM_TEXT$(00) :parent 1000,001
sub_menu 2000:caption 2000,FORM_TEXT$(10) :parent 2000,001
' *** ERSTELLEN UNTERMENÜ 1100 bis 1900 ***************************************
sub_menu 1100:caption 1100,FORM_TEXT$(01) :parent 1100,1000
sub_menu 1200:caption 1200,FORM_TEXT$(02) :parent 1200,1000
sub_menu 1300:caption 1300,FORM_TEXT$(03) :parent 1300,1000
sub_menu 1400:caption 1400,FORM_TEXT$(04) :parent 1400,1000
sub_menu 1500:caption 1500,FORM_TEXT$(05) :parent 1500,1000
sub_menu 1600:caption 1600,FORM_TEXT$(06) :parent 1600,1000
sub_menu 1700:caption 1700,FORM_TEXT$(07) :parent 1700,1000
sub_menu 1800:caption 1800,FORM_TEXT$(08) :parent 1800,1000
sub_menu 1900:caption 1900,FORM_TEXT$(09) :parent 1900,1000
' *** ERSTELLEN UNTERMENÜ 2100 bis 2900 ***************************************
sub_menu 2100:caption 2100,FORM_TEXT$(11) :parent 2100,2000
'
' *** on_click *****************************************************************
on_click 1100,Zahl1100
on_click 1200,Zahl1200
on_click 1300,Zahl1300
on_click 1400,Zahl1400
on_click 1500,Zahl1500
on_click 1600,Zahl1600
on_click 1700,Zahl1700
on_click 1800,Zahl1800
on_click 1900,Zahl1900
' ***
on_click 2100,Zahl2100
end
' ******************************************************************************
'
Zahl1100:
Gosub German
Gosub PROGRAMM

Zahl1200:
Gosub French
Gosub PROGRAMM

Zahl1300:
Gosub English
Gosub PROGRAMM

Zahl1400:
GOSUB Espanol
Gosub PROGRAMM

Zahl1500:
GOSUB FREI

Zahl1600:
GOSUB FREI

Zahl1700:
GOSUB FREI

Zahl1800:
GOSUB FREI

Zahl1900:
GOTO LeftSub_Ferme_Dirlist

Zahl2100:
GOSUB FREI
'
' ******************************************************************************
PROGRAMM:
'
Command_Target_is 000
'
' *** Verzeichnis Text links ***************************************************
'
top 9202,0130
left 9202,0040
SCHRIFTART = 9202
Gosub Schriftart12F
caption 9202,TextaufForm$(02)
show 9202
'
' *** Verzeichnis Liste links **************************************************
'
top 9000,0150
left 9000,0020
width 9000,0205
height 9000,0360
show 9000
'
' *** Datei Text inks **********************************************************
'
top 9203,0130
left 9203,0300
SCHRIFTART = 9203
Gosub Schriftart12F
caption 9203,TextaufForm$(04)
show 9203
'
' *** LeftListe rechts *********************************************************
'
top 9001,0150
left 9001,0245
width 9001,0205
height 9001,0420
show 9001
'
' *** Datei Text inks **********************************************************
'
top 9204,0130
left 9204,0590
SCHRIFTART = 9204
Gosub Schriftart12F
caption 9204,TextaufForm$(04)
show 9204
'
' *** RightListe rechts ********************************************************
'
top 9002,0150
left 9002,0550
width 9002,0205
height 9002,0420
show 9002
'
' *** Verzeichnis Text links ***************************************************
'
top 9205,0130
left 9205,0800
SCHRIFTART = 9205
Gosub Schriftart12F
caption 9205,TextaufForm$(02)
show 9205
'
' *** RightListe links *********************************************************
'
top 9003,0150
left 9003,0775
width 9003,0205
height 9003,0360
show 9003
'
' *** LeftAnzeige PFAD *********************************************************
'
left 9100,020
top 9100,020
width 9100,430
height 9100,25
show 9100
'
' *** RightAnzeige PFAD ********************************************************
'
left 9101,550
top 9101,020
width 9101,430
height 9101,25
show 9101
'
' *** LeftBUTTON aktivieren ****************************************************
'
Left 2027,020
top 2027,0080
width 2027,430
height 2027,025
SCHRIFTART = 2027
gosub SCHRIFTART10F
Caption 2027,TextaufButton$(04)
show 2027
' inactive 2027
'
' *** Right BUTTON aktivieren **************************************************
'
Left 2028,550
top 2028,0080
width 2028,430
height 2028,025
SCHRIFTART = 2028
gosub SCHRIFTART10F
Caption 2028,TextaufButton$(05)
show 2028
' inactive 2028
'
' *** 1. Links Text anzeigen für Laufwerksauswahl*** ALPHA *********************
'
top 9200,535
left 9200,040
SCHRIFTART = 9200
Gosub Schriftart12F
caption 9200,TextaufForm$(01)
show 9200
'
' *** 1. Links AuswahlLaufwerk *** COMBO ***************************************
clear 9300
top 9300,530
left 9300,170
width 9300,50
height 9300,20
color 9300,255,255,255
SCHRIFTART = 9300
Gosub Schriftart10N
hint 9300,TextaufForm$(05)
'
LW_j% =0
'
for LW_i% = 65 to 90
Laufwerk_nr$ = chr$(LW_i%)
IF DISK_EXISTS(Laufwerk_nr$) = 1
LW_j% =LW_j% +1
'
Laufwerk_frei = DISK_KILO_FREE(Laufwerk_nr$)
Laufwerk_max = DISK_KILO_SIZE(Laufwerk_nr$)
Laufwerk_nr$ = Laufwerk_nr$ + ":"
Laufwerk_tab$(LW_j%,1)= Laufwerk_nr$
Laufwerk_tab$(LW_j%,2)= str$(int(Laufwerk_max/1000))
Laufwerk_tab$(LW_j%,3)= str$(int(Laufwerk_frei/1000))
END_IF
NEXT LW_i%
'
text 9300," LW "
for LW_k% = 1 to LW_j%
item_add 9300,Laufwerk_tab$(LW_k%,1)
next LW_k%
show 9300
'
top 9210,0600
left 9210,0020
SCHRIFTART = 9210
Gosub Schriftart10F
caption 9210,TextaufForm$(06)
show 9210
'
top 9211,0650
left 9211,0020
SCHRIFTART = 9211
Gosub Schriftart10F
caption 9211,TextaufForm$(07)
show 9211
'
top 9212,0700
left 9212,0020
SCHRIFTART = 9212
Gosub Schriftart10F
caption 9212,TextaufForm$(08)
show 9212
'
left 9110,0250
top 9110,0600
width 9110,100
height 9110,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9110,"12345678902
show 9110
'
left 9111,0250
top 9111,0650
width 9111,100
height 9111,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9111,"12345678902
show 9111
'
left 9112,0250
top 9112,0700
width 9112,100
height 9112,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9112,"12345678902
show 9112
'
top 9220,0600
left 9220,0800
SCHRIFTART = 9220
Gosub Schriftart10F
caption 9220,TextaufForm$(06)
show 9220
'
top 9221,0650
left 9221,0800
SCHRIFTART = 9221
Gosub Schriftart10F
caption 9221,TextaufForm$(07)
show 9221
'
top 9222,0700
left 9222,0800
SCHRIFTART = 9222
Gosub Schriftart10F
caption 9222,TextaufForm$(08)
show 9222
'
left 9120,0650
top 9120,0600
width 9120,100
height 9120,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9120,"12345678902
show 9120
'
left 9121,0650
top 9121,0650
width 9121,100
height 9121,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9121,"12345678902
show 9121
'
left 9122,0650
top 9122,0700
width 9122,100
height 9122,25
SCHRIFTART = 9212
Gosub Schriftart10F
text 9122,"12345678902
show 9122
'
' *** 1. Rechts Text anzeigen für Laufwerksauswahl*** ALPHA ********************
'
top 9201,535
left 9201,800
SCHRIFTART = 9201
Gosub Schriftart12F
caption 9201,TextaufForm$(01)
show 9201
'
' *** 1. Rechts AuswahlLaufwerk *** COMBO **************************************
clear 9301
top 9301,530
left 9301,920
width 9301,50
height 9301,20
color 9301,255,255,255
SCHRIFTART = 9301
Gosub Schriftart10F
hint 9301,TextaufForm$(05)
'
LW_j% =0
'
for LW_i% = 65 to 90
Laufwerk_nr$ = chr$(LW_i%)
IF DISK_EXISTS(Laufwerk_nr$) = 1
'
LW_j% =LW_j% +1
'
Laufwerk_frei = DISK_KILO_FREE(Laufwerk_nr$)
Laufwerk_max = DISK_KILO_SIZE(Laufwerk_nr$)
Laufwerk_nr$ = Laufwerk_nr$ + ":"
Laufwerk_tab$(LW_j%,1)= Laufwerk_nr$
Laufwerk_tab$(LW_j%,2)= str$(int(Laufwerk_max/1000))
Laufwerk_tab$(LW_j%,3)= str$(int(Laufwerk_frei/1000))
END_IF
NEXT LW_i%
'
text 9301," LW "
for LW_k% = 1 to LW_j%
item_add 9301,Laufwerk_tab$(LW_k%,1)
next LW_k%
show 9301
'
' *** BUTTON "Quit" ************************************************************
'
Left 2024,460
top 2024,500
width 2024,080
height 2024,025
SCHRIFTART = 2024
gosub SCHRIFTART10F
Caption 2024,TextaufButton$(01)
show 2024
On_Click 2024,LeftSub_Ferme_Dirlist
'
' *** BUTTON "Copy ===>" dieses File *******************************************
'
Left 2025,460
top 2025,400
width 2025,080
height 2025,025
SCHRIFTART = 2025
gosub SCHRIFTART10F
Caption 2025,TextaufButton$(02)
show 2025
'
' *** BUTTON "<=== Copy" dieses File *******************************************
'
Left 2026,460
top 2026,300
width 2026,080
height 2026,025
SCHRIFTART = 2026
gosub SCHRIFTART10F
Caption 2026,TextaufButton$(03)
show 2026
'
' *** LeftBUTTON aktivieren ****************************************************
'
' active 2027
' active 2028
'
on_click 2027,Linke_Seite
on_click 2028,Rechte_Seite
end
'
' ******************************************************************************
' *** hide DirList% ***********************************************************
'
Linke_Seite:
gosub LeftSub_open_dialog
end
'
' *** Ouverture du dialogue repertoire *****************************************
'
LeftSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show LeftdirList%
Text 9100, Dir_Current$
Item_add 9000,".."
gosub LeftRep_List
'
on_click 9000,LeftSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
LeftRep_List:

clear 9000
clear 9001

item_add 9000,".."
Lefta$ = file_find_first$
while Lefta$<>"_"
LeftTest%=File_Exists(Lefta$)
if LeftTest%=0 then item_add 9000,Lefta$
if LeftTest%>0 then item_add 9001,Lefta$
Lefta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub LeftSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
LeftSub_Choix_List:
'
LeftTest%= item_Index( 9000)
Leftchaine$=item_read$ ( 9000,LeftTest%)
if LeftChaine$=":" then Leftsuite01
if LeftChaine$=".."
Leftchaine$=Dir_Current$
LeftLong_Chaine%=Len(Dir_Current$)
'
for Lefti% = 1 to LeftLong_Chaine% step 1
'
Leftchaine$=left$(Leftchaine$,Leftlong_chaine%-Lefti%)
LeftSous_Chaine$=Right$(LeftChaine$,1)
'
if LeftSous_Chaine$="\" then exit_for
'
next Lefti%
'
end_if
'
' ******************************************************************************
LeftSuite01:
'
dir_change Leftchaine$
Text 9100, Dir_Current$
LeftRepertoire_Courant$=Dir_Current$
'
gosub LeftRep_list
'
return
'
' ******************************************************************************
LeftSub_Peripheriques:

Lefta$="A":gosub Leftdisque
Lefta$="B":gosub Leftdisque
Lefta$="C":gosub Leftdisque
Lefta$="D":gosub Leftdisque
Lefta$="E":gosub Leftdisque
Lefta$="F":gosub Leftdisque
Lefta$="G":gosub Leftdisque
Lefta$="H":gosub Leftdisque
Lefta$="I":gosub Leftdisque
Lefta$="J":gosub Leftdisque
Lefta$="K":gosub Leftdisque
Lefta$="L":gosub Leftdisque
Lefta$="M":gosub Leftdisque
Lefta$="N":gosub Leftdisque
Lefta$="O":gosub Leftdisque
Lefta$="P":gosub Leftdisque
Lefta$="Q":gosub Leftdisque
Lefta$="R":gosub Leftdisque
Lefta$="S":gosub Leftdisque
Lefta$="T":gosub Leftdisque
Lefta$="U":gosub Leftdisque
Lefta$="V":gosub Leftdisque
Lefta$="W":gosub Leftdisque
Lefta$="X":gosub Leftdisque
Lefta$="Y":gosub Leftdisque
Lefta$="Z":gosub Leftdisque
'
return
'
' ******************************************************************************
Leftdisque:
'
if disk_exists(Lefta$)=1
item_add 9000,Lefta$+":"
end_if

Return
'
' ******************************************************************************
LeftSub_Ferme_Dirlist:
'
Hide LeftDirlist%
'
Return
End
' ******************************************************************************
' hide DirList%
Rechte_Seite:
gosub RightSub_open_dialog
end
' Ouverture du dialogue repertoire
'
RightSub_open_dialog:
'
' Numero_bouton%=Number_click
'
show RightdirList%
Text 9101, Dir_Current$
Item_add 9003,".."
gosub RightRep_List
'
on_click 9003,RightSub_Choix_List
'
' end
return
'
' Affichage de la liste des répertoire a gauche et des fichiers a droites
RightRep_List:

clear 9003
clear 9002

item_add 9003,".."
Righta$ = file_find_first$
while Righta$<>"_"
RightTest%=File_Exists(Righta$)
if RightTest%=0 then item_add 9003,Righta$
if Righttest%>0 then item_add 9002,Righta$
Righta$ = file_find_next$
end_while
'
file_find_close
'
' *** Recherche des periphiques disponibles ************************************

gosub RightSub_Peripheriques
return

' Choisir un repertoire dans la liste
'
RightSub_Choix_List:
'
Righttest%= item_Index( 9003)
Rightchaine$=item_read$ ( 9003,Righttest%)
if RightChaine$=":" then Rightsuite01
if RightChaine$=".."
Rightchaine$=Dir_Current$
RightLong_Chaine%=Len(Dir_Current$)
'
for Righti%=1 to RightLong_Chaine% step 1
'
Rightchaine$=left$(Rightchaine$,Rightlong_chaine%-Righti%)
RightSous_Chaine$=Right$(RightChaine$,1)
'
if RightSous_Chaine$="\" then exit_for
'
next Righti%
'
end_if
'
' ******************************************************************************
RightSuite01:
'
dir_change Rightchaine$
Text 9101, Dir_Current$
RightRepertoire_Courant$=Dir_Current$
'
gosub RightRep_list
'
return
'
' ******************************************************************************
RightSub_Peripheriques:

Righta$="A":gosub Rightdisque
Righta$="B":gosub Rightdisque
Righta$="C":gosub Rightdisque
Righta$="D":gosub Rightdisque
Righta$="E":gosub Rightdisque
Righta$="F":gosub Rightdisque
Righta$="G":gosub Rightdisque
Righta$="H":gosub Rightdisque
Righta$="I":gosub Rightdisque
Righta$="J":gosub Rightdisque
Righta$="K":gosub Rightdisque
Righta$="L":gosub Rightdisque
Righta$="M":gosub Rightdisque
Righta$="N":gosub Rightdisque
Righta$="O":gosub Rightdisque
Righta$="P":gosub Rightdisque
Righta$="Q":gosub Rightdisque
Righta$="R":gosub Rightdisque
Righta$="S":gosub Rightdisque
Righta$="T":gosub Rightdisque
Righta$="U":gosub Rightdisque
Righta$="V":gosub Rightdisque
Righta$="W":gosub Rightdisque
Righta$="X":gosub Rightdisque
Righta$="Y":gosub Rightdisque
Righta$="Z":gosub Rightdisque
'
return
'
' ******************************************************************************
Rightdisque:
'
if disk_exists(Righta$)=1
item_add 9003,Righta$+":"
end_if

Return
' ******************************************************************************
RightSub_Ferme_Dirlist:
'
Hide RightDirlist%
'
Return
end
' *** SUBPROGRAMME FÜR SCHRIFTARTEN
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Schwarz
Schriftartsymbolschwarz12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Terminal GRÖSSE 08 Normal Rot
Schriftartsymbolrot12:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 08 Normal
Schriftart08N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal
Schriftart09N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART Courier New GRÖSSE 09 Normal Rot
Schriftart09NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,225,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Normal
Schriftart10N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Schwarz
Schriftart11N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART ARIAL GRÖSSE 11 Normal Rot
Schriftart11NR:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,255,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Normal
Schriftart12N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Normal
Schriftart15N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Normal
Schriftart20N:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold_off SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett
Schriftart08F:
font_name SCHRIFTART,"Terminal"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett
Schriftart09F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett
SCHRIFTART10F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett
Schriftart11F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett
Schriftart12F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett
Schriftart15F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett
Schriftart20F:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline_off SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
font_color SCHRIFTART,0,0,0
return
' *** SCHRIFTART "Courier New" GRÖSSE 08 Fett Unterstrichen
Schriftart08FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,08
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 09 Fett Unterstrichen
Schriftart09FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,09
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 10 Fett Unterstrichen
Schriftart10FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,10
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 11 Fett Unterstrichen
Schriftart11FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,11
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 12 Fett Unterstrichen
Schriftart12FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,12
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 15 Fett Unterstrichen
Schriftart15FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,15
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' *** SCHRIFTART "Courier New" GRÖSSE 20 Fett Unterstrichen
Schriftart20FU:
font_name SCHRIFTART,"Arial"
font_size SCHRIFTART,20
font_bold SCHRIFTART
font_underline SCHRIFTART
font_strike_off SCHRIFTART
font_italic_off SCHRIFTART
return
' ******************************************************************************
German:
'
TextaufButton$(01) = "Beenden"
TextaufButton$(02) = "=> kopieren"
TextaufButton$(03) = "kopieren <="
TextaufButton$(04) = "Aktivieren des linken Verzeichnis"
TextaufButton$(05) = "Aktivieren des rechten Verzeichnis"

TextaufForm$(00) = ""
TextaufForm$(01) = "Pfad"
TextaufForm$(02) = "Verzeichnisse"
TextaufForm$(03) = "Laufwerke"
TextaufForm$(04) = "Dateien"
TextaufForm$(05) = "Laufwerk auswählen"
TextaufForm$(06) = "Speicherkapazität"
TextaufForm$(07) = "Belegter Speicher"
TextaufForm$(08) = "Freier Speicher"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
French:
'
TextaufButton$(01) = "Fin"
TextaufButton$(02) = "===> copie"
TextaufButton$(03) = "copie <==="
TextaufButton$(04) = "Activation du répertoire gauche"
TextaufButton$(05) = "Activer le bon répertoire"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "chemin"
TextaufForm$(02) = "Annuaires"
TextaufForm$(03) = "Disques"
TextaufForm$(04) = "fichiers"
TextaufForm$(05) = "Sélectionnez Disque"
TextaufForm$(06) = "stockage"
TextaufForm$(07) = "L'espace disque"
TextaufForm$(08) = "mémoire libre"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
English:
'
TextaufButton$(01) = "End"
TextaufButton$(02) = "===> Copy"
TextaufButton$(03) = "Copy <==="
TextaufButton$(04) = "Activating the left directory"
TextaufButton$(05) = "Activating the right directory"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "path"
TextaufForm$(02) = "directories"
TextaufForm$(03) = "drives"
TextaufForm$(04) = "files"
TextaufForm$(05) = "select Drive"
TextaufForm$(06) = "storage"
TextaufForm$(07) = "Disk space"
TextaufForm$(08) = "free Memory"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
Espanol:
'
TextaufButton$(01) = "final"
TextaufButton$(02) = "==> copia"
TextaufButton$(03) = "copia <=="
TextaufButton$(04) = "Activar el directorio de la izquierda"
TextaufButton$(05) = "Activar el directorio de la derecha"
'
TextaufForm$(00) = ""
TextaufForm$(01) = "camino"
TextaufForm$(02) = "directorios"
TextaufForm$(03) = "unidades"
TextaufForm$(04) = "archivos"
TextaufForm$(05) = "seleccionar la unidad"
TextaufForm$(06) = "almacenamiento"
TextaufForm$(07) = "de espacio en disco"
TextaufForm$(08) = "memoria libre"
TextaufForm$(09) = ""
TextaufForm$(10) = ""
'
RETURN
' ******************************************************************************
'
FREI:
'
RETURN
END
' *** LAUFWERKE ERMITTEN ************************************************************************************************************
LAUFWERK_ERMITTLUNG:
'
if disk_exists(LAUFWERK$)=1
'
LAUFWERK_GROESSE$ = LAUFWERK_HELP$+str$((disk_kilo_size(LAUFWERK$))/1000000)
LAUFWERK_GROESSE$ = left$(LAUFWERK_GROESSE$,10)+" GB"
'
LAUFWERK_FREE$ = LAUFWERK_HELP$+str$((disk_kilo_free(LAUFWERK$))/1000000)
LAUFWERK_FREE$ = left$(LAUFWERK_FREE$,10)+" GB"
'
else
'
LAUFWERK_GROESSE$ = " Nicht vorhanden"
LAUFWERK_FREE$ = ""
end_if
'
return
'

» Répertoires dir_change
» Please,Please un fichier ini
» FILE_FIND: Arborescence des répertoires dans un mémo
» Fichiers images (BMP et JPG)
» Exécution des fichiers CPL