two little questions

[the_gentleman_is_smoking_a_cigar]

salam doostan lotfan age mitoonid komak konid
yek inke mikham ba vb 6 ye file i ro baz konam na exe choon to tapikaie inja peidash kardam
mikham masalan ye mpg ro ya ppt ro ba barnamehaye khodeshonn yani media player o power point baz konam
codesho age begid mamnoon misham
va bad inke mikhasam bedoonam chejoori mishe ke masalan do ta safeh htm ro tooye ocx ya dl gozasht va tanha khodam masalan betoonam ba barnamam bazeshoon konam ya copyshoon konam ro hard mamnoon!

[H_SH_VB]

#If Win32 Then
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
#Else
'Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, ByVal lpszDir$, ByVal fsShowCmd%) As Integer
Declare Function GetDesktopWindow Lib "USER" () As Integer
#End If
Private Const SW_SHOWNORMAL = 1


Function StartDoc(DocName As String) As Long

Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function

in javabe soale avalet
startdoc (esme file) ro farakhoni koni baz mishe

ishalla albate :چشمک:

amma soale dovomet
fek mikonam mitooni az ye resource estefade koni
kare sakhti nist :لبخندساده
yekam talash koni khodet peyda mikoni
age natoonesti behem begoo oonam codesho mifrestam :لبخندساده
movafagh bashi
be jaye tashakor 5 ta doaye faraj bekhoon