[Free_Ghost]

Συγνώμη που επανέρχομαι στο ίδιο ερώτημα, αλλά θα ήθελα να το ολοκληρώσω εάν γίνεται.

Στο παρακάτω κώδικα που έγραψε ο Τάσος

Private Sub Εντολή152_Click()
Dim strFile As String
If Not IsNull(Me.Protokollo) Then
strFile = "C:\Office Files\Pdfiles2013\" & Me.Protokollo & ".pdf"
If Dir(strFile, vbDirectory) <> vbNullString Then
ShellExecute 0, "open", strFile, "", "C:\", SW_SHOWNORMAL
Else
MsgBox "File not Found!"
End If
Else
MsgBox "Το πεδίο είναι κενό"
End If
End Sub

Θα ήθελα να κάνω δύο ερωτήσεις.

1) Εάν τα αρχεία τα έχω αποθηκευμένα σε δύο φακέλους (π.χ. τα μισά στο D:\files και τα άλλα μισά στο Ε:\files) πώς μπορώ να το κάνω να ελέγχει και τους δύο φακέλλους και κατόπιν να βγάζει το ανάλογο μήνυμα όπως βγάζει ήδη.

2) Υπάρχει τρόπος η εφαρμογή όταν βρίσκομαι στο ανάλογο αρχείο να ελέγχει εάν υπάρχει αρχείο και εφόσον υπάρχει να αλλάζει χρώμα το πλήκτρο ώστε να γνωρίζω εκ των προτέρων εάν έχει η όχι αρχείο πίσω από το κουμπί.