ABRIR ARQUIVO NA REDE
Pessoal tenho uma aplicação é preciso que ao pressionar um botão um certo arquivo que esta na rede seja aberto, mas preciso usar um código que abra esse arquivo usando o endereço: \\diretorio\pasta\arquivo.xxx sendo que este arquivo pode ser excel, word, pdf, etc quero que ao pressionar o botão o VB6 localize o arquivo através do endereço e abra para mim, alguém poderia me ajudar?
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal HWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim ret As Long
ret = ShellExecute(Me.HWnd, [Ô]Open[Ô], [Ô][txt-color=#e80000]C:\ArchivoSolidWorks.Extension[/txt-color][Ô], [Ô][Ô], [Ô][Ô], 1)
End Sub
coloque o endereco do arquivo na rede
Private Sub Form_Load()
Dim ret As Long
ret = ShellExecute(Me.HWnd, [Ô]Open[Ô], [Ô][txt-color=#e80000]C:\ArchivoSolidWorks.Extension[/txt-color][Ô], [Ô][Ô], [Ô][Ô], 1)
End Sub
coloque o endereco do arquivo na rede
Faça seu login para responder