RE: [Programmer-VB] ttg perintah Shell

[Sistyo Alfan Tribowo]

Title: Message

Hallo.. Coba pakai API   Public Declare Function FindExecutable _     Lib "shell32.dll" Alias "FindExecutableA" _     (ByVal lpFile As String, _     ByVal lpDirectory As String, _     ByVal lpResult As String) As Long   Function FindDefaultProgram(strFileName as string) as string     Dim strResult As String     Dim lngResult As Long         strResult = String(255, 0)     lngResult = FindExecutable(strFileName, vbNullString, strResult)     strResult = Trim(Replace(strResult, "/dde", "", 1))     strResult = Trim(Replace(strResult, vbNullChar, "", 1))     FindDefaultProgram = strResult End Function   ‘Contoh penggunaan Sub Cmd1_Click()      strProgram = FindDefaultProgram(“d:\data\TA.xls”)      shell strProgram & “ d:\data\TA.xls” End Sub   Semoga bermanfaat J From: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of Heru Rahadyan Sent: 19 January 2006 14:03 To: Programmer-VB@yahoogroups.com Subject: [Programmer-VB] ttg perintah Shell     dear programmers mohon info sedikit tentang penggunaan perintah shell saya ingin membuka sebuah file seperti di explorer dimn jk sebuah file di double click mk dia akan dibuka oleh sebuah program defaultnya pertanyaannya adalah : bagaimana cara kira mengetahui program defaultnya dan path-nya   misal : membuka *.pdf, maka otomatis akan dibuka melalui acrobat reader. sedangkan lokasi acrobat reader ini bisa berada dimana saja tergantung saat instalasinya.   terima kasih buat infonya   ------------------------------------------------------ Heru Rahadyan ---------------------------------------------------------------------------------- isi imel ini bukanlah hal yang rahasia, boleh diperbanyak sebanyak apapun yang anda mau pengirim tidak bertanggungjawab atas segala risiko yang muncul akibat perbanyakan isi imel ini secara ilegal, termasuk virus - flu burung, polio, antrax dll- serta segala tetek bengek lainnya. Isi dari email ini tidak bisa dipertanggungjawabkan kebenarannya. Percaya atau tidak percaya atas email ini adalah tanggungjawab pembaca sendiri.   Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.