Cita de: Karcrack en 4 Febrero 2011, 11:23 AMCódigo (vb) [Seleccionar]Option Explicit
'KERNEL32
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long
Public Function DoFileExists(ByRef sPath As String) As Boolean
DoFileExists = CBool(GetFileAttributesW(StrPtr(sPath)) <> -1)
End Function
Y su no supera a la de Leandro me avisais y le meto un TLB o me paso a NT... porque de ASM olvidaros
Cita de: LeandroA