Forum Liberty Basic France
• Index
dir$ est le chemin absolue du dossier. Si vous voulez prendre le dossier courant comme référence, laissez cette variable vide
file$ est le chemin du fichier à partir du dossier de référence.
Exemple : pour tester l'existence du fichier c:\test\test.bas
dir$ = "c:\test"
file$ = "test.bas"
Exemple : pour tester l'existence du fichier test.bas dans le répertoire courant
dir$ = ""
file$ = "test.bas"
Exemple : pour tester l'existence du fichier test.bas dans le dossier "source" répertoire courant
dir$ = ""
file$ = "source\test.bas"
Le code de la fonction
Code VB :
exemple d'utilisation :
Code VB :
file$ est le chemin du fichier à partir du dossier de référence.
Exemple : pour tester l'existence du fichier c:\test\test.bas
dir$ = "c:\test"
file$ = "test.bas"
Exemple : pour tester l'existence du fichier test.bas dans le répertoire courant
dir$ = ""
file$ = "test.bas"
Exemple : pour tester l'existence du fichier test.bas dans le dossier "source" répertoire courant
dir$ = ""
file$ = "source\test.bas"
Le code de la fonction
Code VB :
function fileExist(dir$,file$) dim info$(10, 10) files dir$,file$, info$( if val(info$(0, 0)) > 0 then fileExist = 1 else fileExist = 0 end if end function
exemple d'utilisation :
Code VB :
dir$ = "E:\Programmes\Liberty Basic" file$ = "functions\rename file.bas" if fileExist(dir$,file$) = 1 then print "Le fichier ";dir$;"\";file$;" existe" else print "Le fichier ";dir$;"\";file$;" n'existe pas" end if end function fileExist(dir$,file$) dim info$(10, 10) files dir$,file$, info$( if val(info$(0, 0)) > 0 then fileExist = 1 else fileExist = 0 end if end function
Super, c'est exactement de que je cherchais, je vais tester et ajouter ça dans mon petit programme.
Pour l'existence du fichier a.gpx en entrée, ce n'était pas trop grave car ça sortait un message d'erreur qui fermait le programme. Mais c'était dangereux pour le fichier de sortie car on risquait d'écraser un fichier déjà existant sans aucun avertissement. sinon, après on peut faire des boîtes windows avec save as, etc.. ce n'est pas le but du programme.
Je ne sais pas si tu as vu la dernière version, j'ai rechargé les fichiers joints et modifié un truc important qui permet de garder ouvert Google Earth et le programme, comme ça, on recommence avec un décalage différent, ça écrase le fichier de sortie, on charge dans Google earth et on voit si c'est bon. Bien sur, ça devient vite le bazar dans Google Earth, on peut soit le relancer ou effacer les traces déjà chargées.
Merci encore, dès que c'est modifié, j'ajoute une version 2 en basic et tkn
Pour l'existence du fichier a.gpx en entrée, ce n'était pas trop grave car ça sortait un message d'erreur qui fermait le programme. Mais c'était dangereux pour le fichier de sortie car on risquait d'écraser un fichier déjà existant sans aucun avertissement. sinon, après on peut faire des boîtes windows avec save as, etc.. ce n'est pas le but du programme.
Je ne sais pas si tu as vu la dernière version, j'ai rechargé les fichiers joints et modifié un truc important qui permet de garder ouvert Google Earth et le programme, comme ça, on recommence avec un décalage différent, ça écrase le fichier de sortie, on charge dans Google earth et on voit si c'est bon. Bien sur, ça devient vite le bazar dans Google Earth, on peut soit le relancer ou effacer les traces déjà chargées.
Merci encore, dès que c'est modifié, j'ajoute une version 2 en basic et tkn
Jean30:
Je vais regarder ça
Jean30:
Les sources suffiront ^^
ça serait cool de ne pas mettre de *.tkn sur le forum car on ne peut pas contrôler ce qu'il y a dedans (juste une question de principe
)
Merci !
Je ne sais pas si tu as vu la dernière version, j'ai rechargé les fichiers joints et modifié un truc important
Je vais regarder ça

Jean30:
Merci encore, dès que c'est modifié, j'ajoute une version 2 en basic et tkn
Les sources suffiront ^^
ça serait cool de ne pas mettre de *.tkn sur le forum car on ne peut pas contrôler ce qu'il y a dedans (juste une question de principe

Merci !
Ca y est, c'est fait, tout est dans le zip V2, je laisse quand même un tkn dans le zip pour mes copains modélistes qui auront surement la flemme d'installer just basic (c'est dommage d'ailleurs), j'ai remplacé aussi le programme source qui a le même nom qu'à l'origine.
Ca rend impossible l'effacement un fichier existant et oblige à saisir un nouveau nom, Exception pour le fichier Nouveau Fichier.gpx qui peut être écrabouillé dans tous les cas.
Edité par Jean30 Le 17/04/2011 à 21h25
Ca rend impossible l'effacement un fichier existant et oblige à saisir un nouveau nom, Exception pour le fichier Nouveau Fichier.gpx qui peut être écrabouillé dans tous les cas.
Edité par Jean30 Le 17/04/2011 à 21h25
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie