Forum - PDF Viewer

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - PDF Viewer (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1709-pdf-viewer.html)

Καλησπέρα,
Στο forum, υπάρχει ένα καταπληκτικό δείγμα, ένας PDF Viewer (http://www.ms-office.gr/forum/access...se-access.html).
Υπάρχει δυνατότητα πατώντας το κουμπάκι να "ανοίγει" ένας συγκεκριμένος φάκελος πχ ο C:/Orders ;

Καλησπέρα

Απλά! εντόπισε την συνάρτηση με το παρακάτω όνομα και διέγραψε τα πάντα προσθέτοντας
μια γραμμή εντολής.

Public Function FolderBrowserDialog() As String
FolderBrowserDialog = "C:\Orders "
End Function

Με εκτίμηση

Νίκος Δ.

Νομίζω πως δεν δουλεύει...

Καλημέρα Χρήστο!

Σε μια λειτουργική μονάδα πέρασε τον παρακάτω κώδικα:

Κώδικας:

Option Explicit
 

Private Const MyPC = 16&

Private Const ShOptions = 65&
 

Public Function FolderBrowserDialog() As String

    Dim oShell As Object

    Dim oFolder As Object

    Set oShell = CreateObject("Shell.Application")

    Set oFolder = oShell.BrowseForFolder( _

            0, "Επιλέξτε φάκελο ..." & vbLf, ShOptions, MyPC)

    If Not oFolder Is Nothing Then

        FolderBrowserDialog = oFolder.Self.Path

    End If

    Set oFolder = Nothing

    Set oShell = Nothing

End Function

Και στη φόρμα:

Κώδικας:

Private Sub Test()

    Dim thePath As String

StartHere:

    thePath = FolderBrowserDialog

    If thePath <> vbNullString Then

        If Left(thePath, 2) = "::" Then

            MsgBox "Παρακαλώ επιλέξτε μια έγκυρη διαδρομή!", vbExclamation, "Προσοχή!"

            GoTo StartHere

        End If

        If Right(thePath, 1) <> "\" Then thePath = thePath & "\"

        MsgBox thePath

    End If

End Sub

Καλή συνέχεια!

Τάσος

Τάσο αυτός είναι ο κώδικας απ' το δείγμα!.
Το ζητούμενο είναι να πατάω το κουμπάκι και να φορτώνει τα pdf που βρίσκονται εντός του φακέλου πχ C:\Orders (τον οποίο θα έχω φτιάξει)

Φτιάξε τον φάκελο, βάλε μέσα ένα τουλάχιστον *.Pdf, δοκίμασε και γράψε μας αν δουλεύει ή όχι.

Νίκος

...και ΒΕΒΑΙΑ δουλεύει αν βάλεις μέσα 1 τουλάχιστον αρχείο .pdf !!!
Ευχαριστώ.