VB6 - BOTAO UPLOAD / CARREGAR FICHEIRO

ANAMOREIRA 16/05/2011 05:02:51
#374026
siim , o meu vb6 é sp6..
ANAMOREIRA 16/05/2011 08:31:46
#374029
nao percebo..

voltei a instalar o service pack 6 para o meu vb6..

instalei tbm um programa que faz atualizaçoes automaticas no visual basic..

mas continua a dar erro, porque nao aceita aqele tipo de variavel! :S

[Ô]Dim fso as new filesystemobject[Ô]

percisava disto urgntemente :s
SZBRUUNO 16/05/2011 14:22:49
#374046
Antes verifica se você consegue referenciar o item [Ô]Microsoft Scripting Runtime[Ô] no seu projeto

  Dim lArquivo As File
Dim lDir As Folder
Dim FSO As FileSystemObject
Dim Filtro As String

Filtro = [Ô]exe,vbp[Ô]
Set FSO = New FileSystemObject
Set lDir = FSO.GetFolder([Ô]C:\[Ô])

For Each lArquivo In lDir.Files

If InStr(1, LCase(Filtro), LCase(Right(lArquivo.Name, 3)), vbTextCompare) Then
List1.AddItem lArquivo.Name
End If

Next
ANAMOREIRA 17/05/2011 05:25:12
#374107
boas..

eu ja adicionei os componentes e referencias referidas acima..

mas se exprimentar esse codigo abaixo, dá um erro logo na primeira variavel :S
[Ô]Dim lArquivo as File[Ô]

sera que tenho de arranjar mais componentes ou referencias? é que ja tive de procurar muitos, e sao dificeis de encontrar..
ANAMOREIRA 17/05/2011 07:22:36
#374111
ja juntei todas as variaveis no gerenal.. mas continua com o mesmo erro :S


variaveis:

Dim lArquivo As File
Dim lDir As Folder
Dim Filtro As String
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
Dim server As Folders
Dim strWildcard As String
Dim fs As Scripting.FileSystemObject
Dim linha As String
Página 2 de 4 [37 registro(s)]
Tópico encerrado , respostas não são mais permitidas