(solucionado)[vb] ¿Como muestro esto en el debug?

[SuperDraco]

Código (vb) [Seleccionar] Expandir

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()
DoesFileExist "C:\file.txt"
End Sub

¿Como puedo saber si me devuelve TRUE o FALSE, y de paso hacer un debug.print?

gracias

[79137913]

HOLA!!!

Código (vb) [Seleccionar] Expandir

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

P.D: Indenta el codigo plz.

GRACIAS POR LEER!!!

[Elemental Code]

Código (vb) [Seleccionar] Expandir

dim XD as boolean
XD = DoesFileExist "C:\file.txt"
debug.print XD

[79137913]

HOLA!!!

Código (vb) [Seleccionar] Expandir

dim XD as boolean
XD = DoesFileExist "C:\file.txt"
debug.print XD

XD Eso va a dar error, necesitas ponerle parentesis si o si cuando igualas a algo o llamas el resultado.

GRACIAS POR LEER!!!

[SuperDraco]

gracias a los 2

¿Es necesario volver a escribir la funcion y el string en el debug?

el ejemplo que me habeis dado hace esto:

Código [Seleccionar] Expandir

debug.print funcion string

¿no se podría hacer con un simple parámetro/operador que reconozca el argumento anterior?

algo así:

Código [Seleccionar] Expandir

debug.print %1

(Lo sé, me ha quedado muy batch  )

EDITO: si, tengo que acostumbrarme a indentar, pero solo stoy practicando funciones XD

EDITO2: por más que me he leido esto:

http://wiki.gambas-es.org/index.php?title=Tabla_de_Traducci%C3%B3n_de_ordenes_de_VB6_a_Gambas

No encuentro ningún tipo de parámetro para hacer lo que he dicho, pero si batch si que lo puede hacer, digo yo que vb también :S.

[79137913]

HOLA!!!

Ejemm
No, no se puede, para escribir en la ventana de Inmediato tenes que hacer debug.print.

GRACIAS POR LEER!!!

[SuperDraco]

si, a lo que me refiero es que debe existir algun parámetro en vb para reconocer el último argumento que ha pasado por el procedimiento... ¿¿¿¿NO???

por ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   DoesFileExist("C:\file.txt")
   DEBUG.PRINT %1
End Sub


DoesFileExist("C:\file.txt")  sería el argumento 1

Y El propósito de %1 (Pongo %1 porque no conozco dicho parámetro en vb) sería que hiciera esto:

Código [Seleccionar] Expandir

DEBUG.PRINT DoesFileExist("C:\file.txt")


¿Me entiendes?  

Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código  

[raul338]

Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código 

Deja de comprar batch con vb Acaso lo probaste en vbs?

No se puede, Debug.Print acepta cualquier variable de tipo simple (sea funcion o variable o constante u operacion)

[SuperDraco]

bueno, vale vale

Solo intentaba averiguar eso, además, en vbs si que se puede...

Código [Seleccionar] Expandir

(0)
(1)

...Por eso, es muy raro que en VB no.

un saludo!

PD: Pronto os intentaré recompensar la ayuda xD

[$Edu$]

Alguien no ha seguido los consejos de leer El Guille..