Άνοιγμα παράθυρου περιήγησης φακέλων των windows στην access γίνεται??

[theoma4]

Θελω αν γινετε με ενα κουμπι εντολης σε μια φορμα να ανοιγει παραθυρο περιηγησης των φακελων του σκληρου μου,δηλαδη να επιλεγω ενα αρχειο απο την διαδρομη πχ c:\windows\test.exe και αυτην τη διαδρομη να την αποθηκευει σαν string σε μια μεταβλητη...υπαρχει τετοια δυνατοτητα??

[Meteora]

Λέγε και καμιά ...καλησπέρα!
Όταν σε αυτό το Forum κάνεις ερώτηση, δεν ρίχνεις κέρμα σε JBOX και περιμένεις μετά αμανέδες ...του Στέλιου!
Λοιπόν!
Η μεταβλητή χ περιέχει αυτό που θες.

Private Sub Koumpi_Click()
Dim x As String
 x = OpenFileDialog
End Sub

Function OpenFileDialog() As String
    Dim sFile$, sFilter$, sTitle$
    sFilter = "Access Database (*.mdb)|Access 2007 Databases(*.accdb)"
    sTitle = "Choose the Back-End-File..."
    WizHook.Key = 51488399
    WizHook.GetFileName 0, "", sTitle, "", sFile, CurrentProject.Path, sFilter, 0, 0, 64, True
    OpenFileDialog = sFile
End Function

Αυτά! / Νίκος Δ.

Υστερολόγιο : Μπορείς να προσαρμόσεις το φίλτρο -της συνάρτησης- στις επιθυμίες σου

[theoma4]

Καλησπερα!!
εχεις δικιο ειμαι αδικαιολογιτος!
ευχαριστω για τις οδηγιες-κατευθυνσεις το δοκιμαζω και τα ξαναλεμε...
φιλικα/θοδωρης

[theoma4]

Καλησπερα!
λειτουργει μια χαρα ο κωδικας αλλα το προβλημα ειναι οτι οταν η μεταβλητη "x" παιρνει π.χ την τιμη c:\windows\test.exe οταν παω να το τρεξω με την συναρτηση shell "c:\windows\test.exe" μου βγαζει σφαλμα...
παντα επιλεγω αρχειο εκτελεσιμο για να τρεξει με την shell και οχι κατι διαφορετικο...
που μπορει να ειναι το προβλημα?

φιλικα/θοδωρης

[editolis]

Δοκιμασε αυτο:

On Error Resume Next
Dim X As Integer
Dim AppName As String

AppName = "test.exe"
X = Shell(AppName, 1)

[theoma4]

Γεια σου τολη!
ξερεις που ειναι το προβλημα,οτι στην μεταβλητη appname δεν μπορω να δωσω καθορισμενο αρχειο exe(τιμη) γιατι απλα δεν ειναι στανταρ το συγκεκριμενο αρχειο σε ολους τους pc ,θελω επιλεγοντας το αρχειο στο παραθυρο περιηγησης να αποθηκευεται σε μια μεταβλητη στην περιπτωση μας την "Χ" ετσι ωστε μετα να τρεξω το "Χ" (διαδρομη αρχειου) με την shell...ελπιζω να καταλαβες τι θελω...το δοκιμασα αυτο που εγραψες αλλα δν εβγαλα ακρη...
σορρυ αν κουρασα...

φιλικα/θοδωρης

[theoma4]

καλησπερα σε ολους!
ειμαι κοντα στην λυση,μια βοηθεια αν μπορει καποιος...
με ενα κουμπι εντολης ανοιγω παραθυρο περιηγησης φακελων καθορισμενο στην διαδρομη "c:\windows\twain_32\" εκει επιλεγω το αρχειο του σκαννερ(την διαδρομη δηλαδη) στην μεταβλητη Χ (as string),στη συνεχεια με αλλο κουμπι προσπαθω να τρεξω τον σκαννερ με την συναρτηση shell "Χ",vbNormalFocus αλλα μου λεει file not found .
καποια λυση παιδια????

[Tasos]

Θοδωρή καλημέρα!
Δώσε μας την πραγματική διαδρομή του αρχείου. Αν η διαδρομή περιέχει κενά τότε η αντιμετώπιση και η σύνταξη
των ορισμάτων της Shell θα πρέπει να διαμορφωθεί διαφορετικά.

Γενικά, όταν θέλεις να τρέξεις κάποιο εκτελέσιμο αρχείο με τη συνάρτηση Shell(), θα πρέπει πρώτα να δοκίμασεις να το τρέξεις από το παράθυρο Εκτέλεσης των Windows
(Command Line - Συνδυασμός κουμπιών Windows + R).
Αν μ αυτό τον τρόπο λειτουργήσει, τότε θα λειτουργήσει και με τον παρακάτω κώδικα:

Sub test()
    Dim x As String
    x = "C:\Windows\notepad.exe"
    Shell x, vbNormalFocus
End Sub

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

Τάσος

[theoma4]

Καλημερα τασο!
το βρηκα πριν λιγο,λυθηκε το προβλημα...
επρεπε οταν καλουσα την συναρτηση shell να βαλω 2πλα εισαγωγικα στην μεταβλητη "Χ" δηλαδη να γραφτει ετσι:

Private Sub scan_Click()
Dim RetVal

RetVal = Shell("" & X & "", 1)
End Sub

φιλικα/θοδωρης

[theoma4]

...Φυσικα Τασο δουλευει και αυτο που μου εστειλες,το δοκιμασα...