Εντολή για εμφάνιση Υπολογιστηκής Windows

[γιώργοςΚ]

Χιαρετώ όλους τους φίλους του φόρουμ,

Υπάρχει τρόπος με την βοήθεια μιας εντολής vba να μπορεί να εμφανίζεται η υπολογιστική μηχανη των windows ?

Θα εκτιμήσω κάθε βοήθεια

[kasampas]

Υποθέτω εννοείς το κομπιουτεράκι σωστα;
Μορείς να χρησιμοποιήσεις τον παρακάτω κώδικα

    Call Shell("C:\WINDOWS\system32\calc.exe", 1)

Με την κλήση της

Shell(pathName, windowsStyle)

μπορείς να ανοίξεις οποιαδήποτε εφαρμογή του PC σου

Υπ' όψιν ότι η παραπάνω γραμμή κώδικα δουλεύει για WIN_XP.
Δε θυμάμαι σε πιο φάκελο βρίσκεται το κομπιουτεράκι σε άλλες εκδόσεις των Windows

[γιώργοςΚ]

Βάγγο σε ευχαριστώ φίλε μου για την βοήθεια. Μόνον που δεν δουλεύει σε Win10 που έχω και πρέπει να δώ τι θα κάνω

Σε κάθε περίπτωση ευχαριστώ και πάλιν

[alex]

Γιώργο Καλησπέρα!!!
Βάλε τον παρακάτω κώδικα σε κουμπί εντολής εγώ το ονόμασα Computeraki.

Private Sub Computeraki_Click()
On Error GoTo Err_Computeraki_Click

    Dim stAppName As String

    stAppName = "C:\WINDOWS\system32\Calc.exe"
    Call Shell(stAppName, 1)

Exit_Computeraki_Click:
    Exit Sub

Err_Computeraki_Click:
    MsgBox Err.Description
    Resume Exit_Computeraki_Click
    
End Sub

[γιώργοςΚ]

Γειά σου Αλέξανδρε,

Τζάμι η δουλειά..!! Δουλεύει μια χαρά φίλε μου.

Σε ευχαριστώ πολύ

[alex]

Νά σαι καλά φίλε μου.