Discussion :

[angelevil]

Bonjour.

dans le programme que je code je dois verifier si un fichier ex "xxsInventaire.mdb" ou "*Inventaire*.mdb" existe sur le disque dur de la personne. Si oui le programme continue sinon il s'arrete.

J'aimerais savoir s'il existe une commande pour partir ce type de recherche soit en API ou autrement ????

Merci

AngelEvil!

[méphistopheles]

tu pourrais essayer avec un dir du fso (File system Object) sur un disque dur donné, mais ça peut être assez long... (plus qu'une recherche windos je pense).

il y as plusieurs articles dans la faq là dessus (cherche à File system Object) .

salut

[ThierryAIM]

Il faut faire une fonction récursive
http://thierry_aim.ftp-developpez.co...ScanFolder.zip

[méphistopheles]

ça risque pas de saturer la mémoire si il fait une fonction recursive sur tout le disque dur?
enfin ça dépend de la puissace du pc bien sûr...

[angelevil]

Je vais essayer avec FSO....

Faire un DIR de tous les repertoires.... ouffff ca va prendre un siecle lol

Merci de vos conseils.

AngelEvil!

[leroissejp]

Bonsoir,
Il me semble que le code que je t'ai donné est pourtant simple, il te suffis de placer une condition si le ficher existe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Command1_Click()
MsgBox FichierExiste("Biblio.mdb")
If FichierExiste("Biblio.mdb") Then
    'Ton code si le fichier existe
    Else
    Exit Sub
    End If
End Sub

jpleroisse

[Theocourant]

Bonsoir,
Il me semble que le code que je t'ai donné est pourtant simple, il te suffis de placer une condition si le ficher existe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Command1_Click()
MsgBox FichierExiste("Biblio.mdb")
If FichierExiste("Biblio.mdb") Then
    'Ton code si le fichier existe
    Else
    Exit Sub
    End If
End Sub

jpleroisse

Salut,

Le problème de ta solution est que le DIR ne contrôlera que dans le réperoire actif qui est par défaut le répertoire de l'application. Or ce que angelevil cherche à faire est de contrôler sur tous les disques du pc ...

Il s'agit donc d'une recherche un peu plus poussée mais il y avait de l'idée dans ta réponse

@+

Théo

[ThierryAIM]

je dois verifier si un fichier ex "xxsInventaire.mdb" ou "*Inventaire*.mdb" existe sur le disque dur de la personne

Soit je ne sais pas lire, soit je suis bouché
Mais pour trouver un fichier sur un disque, vous avez une autre solution que d'explorer le disque, si vous n'avez pas le répertoire précis !!!!

[SfJ5Rpw8]

Faire un DIR de tous les repertoires.... ouffff ca va prendre un siecle lol

tu trouve que la recherche de fichiers par l'explorateur Windows est rapide ?
tu pense faire mieux ?

je crois que tu va devoir prendre ton mal en patiente et passer par cette une fonction récusive comme dis plus haut...

[ouskel'n'or]

Hello,
Je profite de la question de angelevil...
Un jour j'ai eu besoin de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call Shell("cmd /c d:\")
Call Shell("cmd /c dir Pyramide_des_ages.xls /o /s > Repertoire.txt")

(crée un fichier texte fournissant la liste de tous les répertoires contenant un fichier nommé)
N'existe-t-il rien de semblable dans VB...*VBA ?

A+

[zazaraignée]

Salut les mecs

Wow! en v'là un qui connait ses commandes DOS!

Si Shell ne fonctionne pas, il y a toujours l'API ShellExecute.

[angelevil]

L'API de ShellExecute ne va pas partir ACCESS.EXE pour ouvrir la BD que je recherche ?

De plus il se peut que la personne ait plusieurs BD du meme nom sur le disque dur.

en fait la personne va sur le site de la compagnie pour qui je travaille, va dans son profil utilisateur, download la MDB sur son poste et le programme que je code doit prendre les infos qui sont dans la MDB qui vient de downloader et inserer ce qui est nouveau dans une BD connu et fixe sur le PC. Comme cela la compagnie a son inventaire comparable a celui de l'internet.

AngelEvil

[Megaxel]

Bonjour tout le monde!
Ha ouais, d'accord, mais là, c'est plus du jeu, parce que ton utilisateur peut le placer où il veut. Et pourquoi pas sur un répertoire réseau, aussi. Tu coup, tu devras "fouiller" tout le voisinage réseau du PC... Alors là, il ne faut pas être plus royaliste que le roi, et ne pas faire croire que l'informatique fait de la magie: au lancement de ton appli, ouvre un browser de fichiers et demande à ton utilisateur de pointer sur le fichier .mdb qu'il vient de télécharger, là où il l'a mis.

[angelevil]

Je comprends ton idée. Juste un point a préciser. Les clients n'ont pas de lecteurs réseaux et ils ont juste un disque dur avec une partition. Nous nous sommes renseignés avant de penser a creer ce petit logiciel.

Je vais checker ca. au pire je viendrai demander votre aide.

merci

[zazaraignée]

Salut

Voici comment je procéderais:

À la création du programme d'installation, j'incluerais une boîte de dialogue qui demanderait à l'utilisateur de sélectionner le fichier de base de données par défaut (essenciel au fonctionnement du programme) et j'en écrirais le chemin dans une sous-clé de registre ou dans un fichier ini.

Sinon, y'a rien comme une boîte de dialogue Ouvrir. Quite à la faire afficher au démarrage de l'application.

Re-sinon, faudra "scanner" tous les lecteurs de la machine, voire même les lecteurs réseaux... et ça risque d'être long!