VB6 - BOTAO UPLOAD / CARREGAR FICHEIRO
siim , o meu vb6 é sp6..
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
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
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
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..
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..
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
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
Tópico encerrado , respostas não são mais permitidas