Új hozzászólás Aktív témák

• #641 Gh0sT addikt _Hunter_ #640

  Új Válasz 2008-03-27 14:59:56 #641

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Gh0sT

  addikt

  válasz _Hunter_ #640 üzenetére

  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
  
  Function PdfLetezik(Fajlnev As String) As Boolean
  On Error GoTo Hibakezelo
  PdfLetezik = (GetAttr(Fajlnev) And vbDirectory) = 0
  Exit Function
  Hibakezelo:
  MsgBox ("A keresett pdf dokumentum nem található")
  End Function
  
  Private Sub Hivatkozas_Click()
  PdfLetezik ("EleresiUt" & Hivatkozas.Value & ".pdf")
  ShellExecute 0&, "open", Hivatkozas.Value & ".pdf", "", "EleresiUt", vbNormalFocus
  End Sub

Új hozzászólás Aktív témák