Jump to content

[Resolvido] Adicionar ficheiros a uma combobox


cagueca
 Share

Recommended Posts

Boas :

Preciso de ajuda para uma combobox ..

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'abrir pasta
        With FolderBrowserDialog1

            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "c:\"
            .Description = "Seleccione a pasta onde se encontram os ficheiros"

        End With

        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

            ComboBox1.Items.Add("aqui nao sei que codigo por para inserir o nome dos ficheiros da pasta que seleccionei")

        End If


    End Sub

Quando seleccionar o ficheiro o programa vai ler para uma textbox mas isso já esta feito ..

Abraço

Link to comment
Share on other sites

Mas a partir da FolderBrowserDialog, queres seleccionar vários ficheiros?

Então vais ter de criar um objecto do Tipo DirectoryInfo, enviar a pasta seleccionada, e depois criar um ciclo For Each para ires preenchendo a ComboBox com cada um dos ficheiros...

Se precisares de mais pormenores, diz 😉

Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist

Link to comment
Share on other sites

        Dim d As New DirectoryInfo(FolderBrowserDialog1.SelectedPath)

        For Each s As FileInfo In d.GetFiles

            ComboBox1.Items.Add(s.Name)

        Next

Vê se isto te chega...

Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.