View PDF files in VB6

1

I have a directory on the server that is created according to the book and sheet, where when scanning images it is saved through the book and physical sheets.

example: I have a book that I have three pages, the number of the book is 1022 and the leaves are 140, 141,142, that is, 3 sheets of the 1022 book will be scanned in the directory :

\servidor\imagens\L1022\L1022F140\L1022F140.pdf
\servidor\imagens\L1022\L1022F140\L1022F141.pdf
\servidor\imagens\L1022\L1022F140\L1022F142.pdf

What I would like to do is load into a list and view each of them through one of two Next and Back buttons

All this I would like to do in VB6.

My current code:

Private Sub cmdVisualiza_Click()

Dim ArqNumstrPathServer As String
Dim ArqNum As String
Dim FS As New FileSystemObject
Dim FSfolder As Folder
Dim subfolder As Folder
Dim I As Integer
Dim Path As String
Path = "\Luciano\Imagens\gerdoc\"
ArqNum = "L" & txtLivro & "F" & txtFolha
Botao = "L" & txtLivro & "F" & txtFolha

sFolderPath = Path & "L" & txtLivro & "\" & Botao & "\"
    
asked by anonymous 01.02.2016 / 13:37

0 answers