ξερει κανεις ?

[ntg_net]

πως θα κανω να ανοιγει αρχεια σε καταληξη *.msc σε VB6 ?

 

εδω :

Private Sub mnucmd_Click()

Shell "cmd.exe", vbNormalFocus --> το exe εδω το παιρνει.

End Sub

 

Private Sub mnuPolicies_Click()

Shell "gpedit.msc", vbNormalFocus --> αλλα εδω το msc δεν...

End Sub

 

http://www.insomnia.gr/vb3/attachment.php?attachmentid=1862&stc=1

code2.JPG

[GCMH]

Τα *.msc ανοίγουν με το mmc.exe των Windows...

 

Πως θα το κάνεις σε Visual Basic όμως, δεν ξέρω...

 

Μαντεύω πως πρέπει να τρέξεις το mmc.exe με κάποια παράμετρο η οποία θα είναι το αρχείο που θέλεις.... Επίσης μαντεύω πως ανάλογα θα είναι και για άλλους τύπους αρχείων.....

[UserXP]

Shell "mmc.exe ""c:\windows\system32\gpedit.msc""", vbNormalFocus

 

Προσοχή.

Για το msc αρχείο πρέπει να μπει το full path.

[UserXP]

Για να βρεις το folder των windows

 

>
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim V, WDir As String * 100, WinDir As String

   WDir = Space(Len(WDir))
   V = GetWindowsDirectory(WDir, Len(WDir))
   WinDir = Left(WDir, V)
   MsgBox WinDir
   'System32Dir = WinDir & "\system32"
   
End Sub

[alkisg]

Υπάρχει και η ShellExecuteEx η οποία ανοίγει τα προγράμματα με το αντιστοιχισμένο πρόγραμμα... (δηλαδή θα σου ανοίγει κατευθείαν τα .mmc). Πρέπει βέβαια να την δηλώσεις όπως έκανε παραπάνω ο UserXP με την GetWindowsDirectory...

[manavo]

Και η ShellExecute (όχι Ex) κάνει το ίδιο...