if - else

[ddies]

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

 dim sDir as string
 dim lBuf as long

 lbuf = 255
 sDir = space$(lbuf)

 call GetSystemDirectory(sdir,lbuf)


 if Dir(sdir &"\541xx.dll") <> "" then
   Shell(Nomeprogramma)
    'oppure
   formMain.show
 else
   if NSerialeGiusto then
     FileCopy App.path & "\54xx.dll", sDir & "\54xx-dll"
   else
     msgbox "Numero seriale sbagliato"
     End
   End if
 End if