PDF Viewer

[Χρήστος]

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

[Meteora]

Καλησπέρα

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

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

Με εκτίμηση

Νίκος Δ.

[Χρήστος]

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

[Tasos]

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

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

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 (τον οποίο θα έχω φτιάξει)

[Meteora]

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

Νίκος

[Χρήστος]

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