Forum Liberty Basic France

• Index
• Subs et Snippets » [JB] [function] Teste l'existance d'un fichier ou d'un dossier
Black Templar
Le 16/04/2011 à 11h48

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 203
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 :
 
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
 
Mail MSN Web    
Jean30
Le 17/04/2011 à 18h50

Libertynaute Débutant

Groupe: Membre

Inscrit le: 15/04/2011
Messages: 3
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
Web    
Black Templar
Le 17/04/2011 à 21h02

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 203
Jean30:
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 !
Mail MSN Web    
Jean30
Le 17/04/2011 à 21h13

Libertynaute Débutant

Groupe: Membre

Inscrit le: 15/04/2011
Messages: 3
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
Web    
• Subs et Snippets » [JB] [function] Teste l'existance d'un fichier ou d'un dossier  
• Index

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie