Mensajes

  Me intrigo eso de que el mensaje esta en ingles...!

*PsYkE1*, no lo tomes a mal, pero detesto a los Copy&Paste...! Espero que esa funcion sea 100% tuya... Sino, tomate este momento para colocar su autor...! 

Muy bueno *PsYkE1*, me gustó...!

Excelente aporte... Y si la polaca esta bella...! Quizás no supera la belleza de nuestra gran y preciosa usuario TIFA... Pero si hay que reconocer que esta linda...!

Groundhog Day, es: El día de la marmota, pero no es la que yo digo...! Trata sobre otra cosa.... La otra es: El último día del verano... Tampoco es...! =(

Yo soy de caracas... Tú? Te interesaría hablar de negocios?

D4N93R, de donde eres? Esa expresión tuya la usan aqui en mi pais... VENEZUELA

La historia es de un tipo (No lo tomen como racismo, pero es para ser especifico)  negro, despierta siempre el mismo dia junto a su esposa y es acusado de asesinato. El caso es que el hace hasta lo imposible para salir ileso, pero se vuelve una rutina, cuando el dia acaba, luego de descansar y al despertar se da cuenta que es el mismo dia que vivio ayer. Luego comienza a jugar con el tiempo, sabiendo que sucede busca nuevas estrategias para lograr safarce del problema.

Si alguien sabe como se llama, agradezco si me dice...

Saludos

[Reglas]

Lee las Reglas del foro...!

Fijate en esto...!

Código (vb) [Seleccionar] Expandir


Private Sub CmdAceptar_Click()
Dim ValDev As Boolean, UnArchivo As String
UnArchivo = "c:\autoexec.bat"
ValDev = ExisteArchivo(UnArchivo)
MsgBox "Existe Archivo = " & ValDev & vbCrLf & UnArchivo
End Sub


Private Function ExisteArchivo(sNombreArchivo As String) As Boolean
Dim AttrDev%
On Error Resume Next
AttrDev = GetAttr(sNombreArchivo)
If Err.Number Then
  Err.Clear
  ExisteArchivo = False
Else
  ExisteArchivo = True
  End If
End Function


Otra forma es:

Código (vb) [Seleccionar] Expandir



Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
   
MsgBox "Existe ? " + CStr(CBool(PathFileExists("c:\autoexec.bat")))


End Sub


si no con la función Dir.

Lo mejor que puede hacer es usar el MSHFlexgrid, sino pues el grandioso ListView... Con la clase de leandro lo hace editable si desea, pero por lo general no me gusta que las grillas se editen, sino que sean informativas...! Pero ya depende de su criterio..!