3 ayrı metod buldum: kaynak: Sergey on January 1, 2008 - 20:04
direk sorduğun bolt
A.
* WSH Run Method
oShell = Createobject("wscript.shell")
* Open 'MyComputer' view with C: drive selected
oShell.Run("%SystemRoot%\explorer.exe /n, /select, c:")
* Open Windows Explorer for current folder
lcCurDir = FULLPATH("")
* Current folder selected
oShell.Run("%SystemRoot%\explorer.exe /n, /select, " + lcCurDir)
* Current folder open
oShell.Run("%SystemRoot%\explorer.exe /n, /root, " + lcCurDir)
* Open Windows Explorer with a file selected
lcFileName = _VFP.ServerName
oShell.Run("%SystemRoot%\explorer.exe /n, /select, " + lcFileName)
B.
* SHELLEXECUTE() Windows API.
DECLARE Long ShellExecute IN "Shell32.dll" ;
Long hwnd, String lpVerb, String lpFile, ;
String lpParameters, String lpDirectory, Long nShowCmd
* Open 'MyComputer' view with C: drive selected
ShellExecute (0,"", GETENV("SystemRoot") + "\explorer.exe", "/n, /select, c:", "", 1)
* Open Windows Explorer for current folder
lcCurDir = FULLPATH("")
* Current folder selected
ShellExecute (0,"", GETENV("SystemRoot") + "\explorer.exe", "/n, /select, " + lcCurDir, "", 1)
* Current folder open
ShellExecute (0,"", GETENV("SystemRoot") + "\explorer.exe", "/n, /root, " + lcCurDir, "", 1)
* Open Windows Explorer with a file selected
lcFileName = _VFP.ServerName
ShellExecute (0,"", GETENV("SystemRoot") + "\explorer.exe", "/n, /select, " + lcFileName, "", 1)
C. kendi çözümüm
! Explorer /select, c:\deneme\ali.dbf
ayrıca:
http://support.microsoft.com/kb/152457
http://msdn.microsoft.com/en-us/library … 85%29.aspx
http://msdn.microsoft.com/en-us/library … 85%29.aspx
VFP9 SP2