RE: [Programmer-VB] ttg perintah Shell

[Heru Rahadyan]

Title: Message

mas sisto dan mawardi, terima kasih buat info nya akan saya coba     ------------------------------------------------------ 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.     -----Original Message----- From: Programmer-VB@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of Sistyo Alfan Tribowo 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   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.