Jump to content
Sign in to follow this  
Daniel Alves

VB6 - Botão Upload / Carregar Ficheiro

Recommended Posts

Daniel Alves

Olá a todos.

Estou com um grande problema e não consigo resolve-lo. Precisava de algo muito simples e já fiz várias pesquisas mas nada encontrei.

Que código é que devo usar para procurar um ficheiro no meu computador?

E restringir a procura ao tipo de ficheiro que pretendo. Por exemplo .txt ou .pdf  etc

Há algum método que necessite usar? Alguma função específica? Algum add on?

Peço desculpa se não estou a colocar o tópico no sitio correcto ou a perguntar algo que já foi respondido.

MAS ESTOU MESMO A PRECISAR DE AJUDA  :P

Grande Abraço e Parabens a todos pelo belissimo trabalho que aqui têm feito

Share this post


Link to post
Share on other sites
tobias

Boas,

desculpa não poder ajudar muito, mas isso tem haver com open dialog se eu estou a perceber bem o que pretendes.

CommonDialog.Filter = "Apps (*.txt)|*.txt| Apps (*.pdf)|*.pdf"

CommonDialog.DefaultExt = "txt"

CommonDialog.DialogTitle = "Select File"

CommonDialog.ShowOpen

epáh isto não te vai resolver o problema por completo, mas ao menos tens uma noção do que procurar.

Cumps.


Cumprimentos,Tobias Cintrão


"O que se pensa começa no que se ouve"
"Inspiração == Interrupção momentânea da estupidez"

Share this post


Link to post
Share on other sites
Daniel Alves

Muito Obrigado pela ajuda.

Vou já experimentar...

Percebi a lógica do código. Agora vou testa-lo...

Muito obrigado pela ajuda

Share this post


Link to post
Share on other sites
tobias

Ok depois diz qualquer coisa.


Cumprimentos,Tobias Cintrão


"O que se pensa começa no que se ouve"
"Inspiração == Interrupção momentânea da estupidez"

Share this post


Link to post
Share on other sites
Ana_Moreira

bem, eu tambem estou com o mesmo problema.

e arranjaram-me este codigo

Option Explicit


'este código chama a funçao
Private Sub Command1_Click()
Call List_Arq_Dir
End Sub


Public Sub List_Arq_Dir()
Dim Pasta As Object
Dim ArqExst As Object
Dim Arq As Object
Dim NomeArq As String
Dim newarq As New FileSystemObject
Dim fso As New FileSystemObject


Set fso = CreateObject("Scripting.FileSystemObject")

Set Pasta = fso.GetFolder("c:\")
Set ArqExst = Pasta.Files

List1.Clear

For Each Arq In ArqExst
If ((LCase(Right(Arq.Name, 3))) = "txt") Then
List1.AddItem Arq.Name
End If
Next
End Sub	

mas ainda nao esta a funionar a 100%, se alguem poder dar uma vista de olhos para nos ajudar..

testei com break point's e fica parado no ciclo If

If ((LCase(Right(Arq.Name,3)))="txt") Then 


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites
Ana_Moreira

olha o meu codigo ja esta a funcionar..

mas entretanto ainda nao consegui arranjar maneira de procurar pelo computador todo :S

Option Explicit


'este código chama a funçao
Private Sub Command1_Click()

    Dim Pasta As Object
    Dim ArqExst As Object
    Dim Arq As Object
    Dim fso As New FileSystemObject


    Set fso = CreateObject("Scripting.FileSystemObject")

    Set Pasta = fso.GetFolder("c:\")
    Set ArqExst = Pasta.Files

    Me.List1.Clear

    For Each Arq In ArqExst
            If ((LCase(Right(Arq.Name, 3))) = "mdf") Or ((LCase(Right(Arq.Name, 3))) = "ldf") Then
            Me.List1.AddItem Arq.Name
        End If
    Next

End Sub


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites
tobias

Boas, quando dizes pelo computador todo é o que, fora do disco c:/?


Cumprimentos,Tobias Cintrão


"O que se pensa começa no que se ouve"
"Inspiração == Interrupção momentânea da estupidez"

Share this post


Link to post
Share on other sites
Ana_Moreira

qeria referir-me às subpastas..

ao por só C:\ ele apenas procura no que estiver la.. se por acaso estiver dentro de alguma pasta la, ela ja nao procura :S


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
Share on other sites
tobias

http://www.vbforums.com/showthread.php?t=244880

Repara no for, acho que é isso.

Mas será que não há uma forma directa de fazer isso, tipo algo como c:/.. ?

PS: estou aqui a tentar ajudar, mas também nunca fiz algo do género em vb6...  ;)


Cumprimentos,Tobias Cintrão


"O que se pensa começa no que se ouve"
"Inspiração == Interrupção momentânea da estupidez"

Share this post


Link to post
Share on other sites
Ana_Moreira

tenho de ver melhor aquele codigo..

mas "C:\"  nao serve.. pq assim ele procura so os ficheiros que estiverem mesmo na raiz do C.. e nao procura nas subpastas.. :S

nao entendi muito bem o codigo mas vou analisar melhor mais tarde, isto de ver codigo o dia todo começa a dar o nó xD


A'MoreiraEu sobrevivi ao fim do mundo (: ahahahhttp://lmgtfy.com/?q=digite+aqui+sua+duvida+que+eu+te+respondo!

Share this post


Link to post
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
Sign in to follow this  

×
×
  • 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.