Auteur Topic: PDF files zichtbaar maken. (gelezen 4752 keer)

Math Reinders · « **Gepost op:** 15 maart 2013, 20:05:10 »

Hallo,
Ik heb in VB een dirlist gemaakt. Deze dirlist laat alles bestanden zien in. Hierin staan allemaal pdf bestanden.
Hoe kan ik een pfd bestand open. Wat moet ik toevoegen of wijzigen of bestand zichtbaar te maken.
Stuk prog. is bijgevoegd.

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

File1.Path = Dir1.Path
If Right$(File1.Path, 1) <> "\" Then
bn = File1.Path + "\" + File1.FileName

Else
bn = File1.Path + File1.FileName

End If
End Sub

SoftAid · « **Reactie #1 Gepost op:** 16 maart 2013, 15:11:56 »

Hallo Math,

de volgede code (aangepast aan uw pdf-reader en locatie van het bestand ) zou moeten werken:

Code: [Selecteer]

Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\Formules.pdf", 4
of

Code: [Selecteer]

Shell "C:\Program Files \Adobe\Reader 9.0\Reader\AcroRd32.exe C:\Users\Jou gebruikersnaam\Mijn documenten\Formules.pdf", 4

(spaties in map-namen worden niet aanvaard.
Dus "\Mijn Documenten\" gaat niet werken (pad bestaat niet voor sommige readers)

SoftAid

Math Reinders · « **Reactie #2 Gepost op:** 19 maart 2013, 10:10:46 »

Hallo SoftAid.

Tip was geweldig.

Dank.

Math

Math Reinders · « **Reactie #3 Gepost op:** 19 maart 2013, 16:32:51 »

SoftAid,

Probleem,

Het programma loopt gedeeltelijk kapot ??

Shell "C:\Program Files \Adobe\Reader 9.0\Reader\AcroRd32.exe
tot hier gaat het goed.

het vervolg loopt niet. (krijg dan foutmelding van AR dat hij het bestand niet vindt.

De bestanden heb ik in de navolgende dir. staan :
"c:\@@pdf_bestanden\klantnummer\1\xxxxxx.pdf"

Onderstaande regels heb ik al geprobeerd:
'Shell "d:\adobereader\Reader\AcroRd32.exe c:\@@pdf_bestanden\klantnummer\1\file1.filename", 4
'Shell "d:\adobereader\Reader\AcroRd32.exe bn", 4

Als ik deze regel gebruik 'Shell "d:\adobereader\Reader\AcroRd32.exe c:\@@pdf_bestanden\klantnummer\1\test.pdf", 4 , vindt het programma de file wel. (test.pfd)

Via Acrobadt Reader zelf worden de bestanden wel geopend.

Wat doe ik fout

Gr. Math

SoftAid · « **Reactie #4 Gepost op:** 19 maart 2013, 16:47:39 »

Citaat van: Math Reinders op 19 maart 2013, 16:32:51

"c:\@@pdf_bestanden\klantnummer\1\xxxxxx.pdf"

Dit command aanvaard geen spaties (en zelfs sommige tekens niet) in de bestandsnaam
hernoem je xxxxxx.pdf eens naar test2.pdf, en kijk of hij hem dan wel wil aanvaarden...

SoftAid

Math Reinders · « **Reactie #5 Gepost op:** 19 maart 2013, 17:10:18 »

Hallo,

Heb de dir gewijzigd naar "pdfbestanden" enz.

Als in de prog. regel een vastse waarde wordt gezet (20130002-1.pdf) dan loopt het programma goed.
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\1\20130002-1.PDF", 4
en bij onderstaande loopt het prog. vast.
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\1\file1.filename", 4
en
Shell "d:\adobereader\Reader\AcroRd32.exe bn", 4

Gr. Math

SoftAid · « **Reactie #6 Gepost op:** 19 maart 2013, 18:48:57 »

Citaat van: Math Reinders op 19 maart 2013, 17:10:18

Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\1\file1.filename", 4

Math, moet dat niet zoals hieronder zijn als je verwijst naar een variabele: "tekst" & variabele ->

Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\1\" & file1.filename, 4

Jij sluit de variabele mee in, in de haakjes, dus als tekst...

SoftAid

Math Reinders · « **Reactie #7 Gepost op:** 19 maart 2013, 20:00:16 »

Het klopt helemaal.

Maar met de subdir. (1) hoe doe ik die dan wijzigen.

Heb ongeveer een kleine duizend subdir.
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\1\" & file1.filename, 4

SoftAid · « **Reactie #8 Gepost op:** 19 maart 2013, 20:15:08 »

Hallo Math,

is die 1 ook een variabele?

Dan wordt de code:

Code: [Selecteer]

Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\" & 1 & "\" & file1.filename, 4
Shell

tekst "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\"
&
variabele 1
&
tekst "\"
&
variabele file1.filename, 4

SoftAid

Math Reinders · « **Reactie #9 Gepost op:** 19 maart 2013, 20:33:45 »

Deze regel klopt niet.
De variabele "1" kan zijn een getal tussen 1 en 9999 en dan file1.filename.

SoftAid · « **Reactie #10 Gepost op:** 19 maart 2013, 20:47:28 »

Hallo Math,

Is dit wat je wenst:

For subdirectory = 1 to 9999
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\" & subdirectory & "\" & file1.filename, 4
Wait 'doet de loop stoppen tot je Enter klikt, denk ik.... of
MsgBox("Wilt u de volgende subdirectory bekijken") ' bij OK gaat hij naar 2 enzovoort...
next subdirectory

Ik denk dat je nu wat mag verduidelijken op welke manier je de pdf-bestanden wil bekijken?
via ingave van een klantnummer, een directory-nummer en een file-naam?

SoftAid

Math Reinders · « **Reactie #11 Gepost op:** 20 maart 2013, 16:32:30 »

Hallo SoftAid,

heb de oplossing gevonden.

heb de bn gesplitst met een mid$ vanaf positie 29, zodat alleen de 3dir en 4dir zichtbaar worden en heb die in de vairabele SUBDIR geplaatst.

dir 1 = pdfbestanden
dir 2 = klantnummer
dir 3 = een getal tussen 1 en 9999
dir 4 = file1.filenaam

dir 3 en dir 4 zijn variabele gegevens.

Hieronder het hele prog.

Groetjes Math en bedankt voor je hulp

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
File1.Path = Dir1.Path
If Right$(File1.Path, 1) <> "\" Then
BN = File1.Path + "\" + File1.FileName
SUBDIR = Mid(BN, 29, 22)
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\" & SUBDIR, 4
Else
BN = File1.Path + File1.FileName
End If
End Sub

Help!

Menu

Hulp bij posten

Zoeken

Recente topics