8
votes

Comment utiliser la boîte de dialogue Ouvrir un fichier dans VB 6?

Je veux sélectionner un fichier à partir du répertoire ou d'un autre système. Comment utiliser la boîte de dialogue Ouvrir un fichier dans VB 6?

vb6

0 commentaires

3 Réponses :

20
votes

Il y a un exemple de code dans Cette question . Citant:

dans VB6, ajoutez le composant: p>

Projet> Composants LI>

Dans l'onglet Contrôles, choisissez Microsoft Common Dialog Control 6.0 (SP6) LI> ul>

Maintenant sur votre formulaire, ajoutez la nouvelle commande de dialogue commune de la boîte à outils p>

dans le code, vous avez besoin: p>

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen

'The FileName property gives you the variable you need to use
MsgBox CommonDialog1.FileName

0 commentaires

1
votes

Cela avait besoin du "1", mais fonctionne bien merci xxx

'La propriété FileName vous donne la variable que vous devez utiliser MsgBox Commonialog1.Filename

1 commentaires

J'ai modifié la réponse de @ant

0
votes

Sub main()


  With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        .Show
        fullpath = .SelectedItems.Item(1)
    End With

    If InStr(fullpath, ".xls") = 0 Then
        Exit Sub
    End If

    Workbooks.Open fullpath

End Sub

2 commentaires

Cela semble serviable, mais s'il vous plaît ajouter du texte à votre réponse expliquant un contexte. Surtout comme il s'agit d'une réponse tardive par rapport à la question, cela aidera à savoir pourquoi votre solution est différente et meilleure.

Si ma compréhension est correcte, c'est pour VBA et non VB6. Application.FileDialog n'existe pas dans VB6.