VB6 - BOTAO UPLOAD / CARREGAR FICHEIRO

ANAMOREIRA 12/05/2011 11:50:27
#373767
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?

ESTOU MESMO A PRECISAR DE AJUDA

Grande Abraço e Parabens a todos pelo belissimo trabalho que aqui têm feito
LUIZCOMINO 12/05/2011 12:17:54
#373770
amigo use o commondialog.
de uma procurada nesse link

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=320759
MARCELO.TREZE 12/05/2011 17:28:50
#373804
Acho que é isso que deseja

coloque um botão e um listbox em seu projeto e cole


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

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


bom com o código acima vc irá listar todos arquivos TXT que estiverem em C:\
ANAMOREIRA 13/05/2011 05:21:32
#373835
boas amigos..

obrigado pelos codigos..

alguem me pode dizer como identifico [Ô]fso[Ô] nas variaveis?

da-me erro ai.. ja tentei algumas maneiras mas nao sei.. :S
ANAMOREIRA 13/05/2011 07:42:30
#373837
continua a nao funcionar.. :S


antes de obter a vossa resposta,
esperimentei [Ô]Dim fso as object[Ô]
fiz break point[ô]s
e parou no ciclo If
[Ô]If ((LCase(Right(Arq.Name, 3))) = [Ô]txt[Ô]) Then[Ô]
ANAMOREIRA 13/05/2011 07:55:46
#373840
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
ANAMOREIRA 13/05/2011 10:03:54
#373857
testei agora com esse codigo e dá o erro [Ô]User - defined type not defined[Ô] :S

o que posso fazer?!
MARCELO.TREZE 13/05/2011 15:41:43
#373880
o seu é o vb6 e o sp é o sp6?
Página 1 de 4 [37 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar