Ouvrir un dossierRésolu

Question

Bonjour à tous

Dauns un progarmme de gestion déja construit et qui fonctionne bien,
je voudrais pouvoir ouvrir directement un dossier pour consulter les fichiers 
qui s'y trouvent
Je l'ai fait sous access mais sous VB6 je suis coincé

Merci d'avance

Marpi66

econs · Accepted Answer

Salut,

Dans le cas où tu voudrais simplement ouvrir le dossier dans l'explorateur windows, il s'agit juste de taper ceci, avec le répertoire qui va bien :




Shell "Explorer C:\Windows\system32", vbNormalFocus






"pour consulter les fichiers qui s'y trouvent" => ca veut dire que tu vas en choisir un pour en faire quelque chose, ou que tu vas juste les regarder ?





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

cs_JMO · Answer

Bonsoir,

Cela s'appelle un CommanDialog.

jean-marc

jmfmarques · Answer

Comman ?
Tiens, JMO, c'est pas commun, cà !

cs_JMO · Answer

Petite erreur "common".
Tu m'auras compris, jmfmarques, il y a plein d'exemples de CommonDialog.
Il suffit de jongler avec les variables pour personnaliser son browser.

exemple tout simple (sans vérification)

Dim var1, var2, var3
var1 = "D:\Test"  'disque ou disque/répertoire pour se positionner
var2 = "commentaire de la fenêtre"
var3 = "|*.txt|"   'tous les fichiers .txt 

MsgBox BrowseForFile(var1, var2 & var3)

Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8   'position de la fenêtre 
intResult = objDialog.ShowOpen          
BrowseForFile = objDialog.FileName 'récupération du nom du fichier sélectionné
Set objDialog = nothing
end function

jean-marc

marpi66 · Answer

Merci , j' ai utilisé le Shell et c' est ok

Marpi66

prodi_64 · Answer

Bonjour,

je souhaite faire la même chose, ouvrir un répertoire spécifique dans l'explorateur.
J'ai utilisé la commande shell indiquée, mais je n'ai aucun résultat. Rien ne se passe. Il met le sablier en signe de "travail" mais aucune fenêtre ne s'ouvre et il n'y a pas non plus de message d'erreur...

Shell "Explorer C:\Windows\system32", vbNormalFocus

Quelqu'un peut me dire pourquoi? Y a-t-il des références particulières à ajouter?

jmfmarques · Answer

QSi tu as TA question, tu ouvres TA discussion....

Ouvrir un dossier

7 réponses

Votre réponse

Discussions similaires