Ouvrir dossier courant

Bonsoir a tous
je cherche 2 choses

1) ouvrir le repertoire courant dans un menu (App.Path) (dans le menu je clic sur "ouvrir le repertoire" et il ouvre directement le repertoire de l'appli )


2) je voudrais faire un msgbox avec des boutons radio
             3 boutons et selon le choix il execute le code du bouton radio

merci de votre aide

a+

euu
1 - tu peux utiliser

My.Application.Info.DirectoryPath

Exemple de code pouvant repondre a ton besoin

Dim odlg As OpenFileDialog

odlg =

New OpenFileDialog

odlg.Filter =

"Tous les documents|*.*"

odlg.InitialDirectory = My.Application.Info.DirectoryPath

Try

If odlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

'...

EndIf

Catch ex As Exception

EndTry

2 - il faut que tu crees une form
sur laquelle tu ajoutes 3 boutons radio

puis tu joins l'evenement CheckedChanged des 3 boutons radio (clic sur image en forme eclair dans fenetre propriete pour chaque radiobutton et selectionne l'evenement deja cree
+ select case
>>

PrivateSub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton3.CheckedChanged, RadioButton2.CheckedChanged

SelectCaseTrue

Case sender Is RadioButton1

' ton code ici OU appel fonction ou procedure

Case sender Is RadioButton2

' ton code ici OU appel fonction ou procedure

Case sender Is RadioButton3

' ton code ici OU appel fonction ou procedure

EndSelect

EndSub


>> pour afficher ta form cree avec radiobutton tu fais simplement
dim oForm as nomform
oForm =new nomform

oForm.showdialog()

voila la tu dois avoir pas mal elements
++

Bonsoir,
romagny13 a donné une explication pour VB.NET, mais si tu utilises vb6, c'est assez différent :

1) Si j'ai compris, tu veux ouvrir le dossier avec l'explorateur windows. Utilise simplement la commande Shell :
Shell "explorer.exe " & App.Path, vbNormalFocus
Ou alors tu veux lister le contenu du dossier dans le menu ? Si c'est ça ce sera plus compliqué.

2) Pour faire une msgbox personnalisée, ajoute une nouvelle feuille au projet avec trois boutons radio. Le mieux pour avoir une feuille du style msgbox est d'utiliser les propriétés suivantes

BorderStyle = 3 (Fixed Dialog)
ControlBox = False (pas d'icône ni de croix pour fermer)
StartUpPosition = 2 (CenterScreen)

Afficher la feuille : NomDeLaFeuille.Show vbModal (vbModal pour bloquer tout le reste tant que le message est affiché)
Code de la feuille :

Private Sub Option1_Click()
  'Code à exécuter pour le premier bouton...
  MsgBox "Bouton 1"
  Unload Me 'Masque et décharge la feuille
End Sub

[Même principe pour les boutons 2 et 3]

Private Sub Form_Activate()
  'Evite que le premier bouton soit activé dès l'affichage
  Option1.Value = False
End Sub

Si VB6, explorateur de dossiers ici:
DLL POUR VB/VBA (9)
http://www.vbfrance.com/code.aspx?id=18494

ciao...
BruNews, MVP VC++

a oui mince javais pas vu faut dire pour moi vb6 est o oubliettes