FILESYSTEMOBJECTS

TATILILIKA 11/02/2011 10:25:56
#365095
Pessoal,
Preciso fazer o seguinte.
Pegar um arquivo gerado em uma pasta e jogar para um endereço na rede.

Estou fazendo assim:

Private Sub Arquivo()
Dim fs As New Scripting.FileSystemObject
Set fs = New Scripting.FileSystemObject

SourcePath = fs.GetFile([Ô]H:\Contabilidade Geral\SIS\SIS_BR.csv[Ô])

DestinationPath = ([Ô]\\190.1.10.106\Pasta/[Ô])

fs.MoveFile SourcePath, DestinationPath
Set fs = Nothing
End Sub

Acontece que não consigo copiar no destino, como devo fazer para enviar usuário e senha, pois este endereço solicita isso.
Obrigada!
HIDDEN 11/02/2011 11:27:52
#365109 Resposta escolhida
Eu já tive este problema e solucionei. Mas não tenho esta solução específica em mãos neste momento, pois estou em viagem. Mas vou te passar um link muito bom, onde você encontrará de tudo sobre VB6 x Network. Desenvolvi minha solução com base neste site.

http://vbnet.mvps.org/code/network/wnetaddconnection2.htm
HIDDEN 11/02/2011 11:30:27
#365110
TATILILIKA 11/02/2011 11:37:04
#365116
Se eu pudesse seria bem mais fácil

Citação:

:
Acredito que nao tem como ....

Porque não simplifica as coisas e da direito no windows para o usuario e assim copiar na pasta de destino !!!!
Tópico encerrado , respostas não são mais permitidas
Voltar