HOLA!!!
Ejemm
No, no se puede, para escribir en la ventana de Inmediato tenes que hacer debug.print.
GRACIAS POR LEER!!!
Ejemm
No, no se puede, para escribir en la ventana de Inmediato tenes que hacer debug.print.
GRACIAS POR LEER!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Elemental Code en 15 Julio 2011, 20:03 PMdim XD as boolean
XD = DoesFileExist "C:\file.txt"
debug.print XD
Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean
If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False
End Function
Private Sub Form_Load()
DEBUG.PRINT DoesFileExist("C:\file.txt")
End Sub
'Mostrar del 1 al 24
For x=1 to 24
Print x
Next
If app.path <> pathPredeterminado Then End
Pbar1.maxvalue = 3 ' no recuerdo si era maxvalue u otra pero bueno, 3 representa la cantidad de operaciones que realizas.
For x = 0 to 3
Call HacerTodosLosProcedimientos()
Pbar1.value = X
Next