Checken of een bestand bestaat

[HellupUandMe]

Heej mensen

Ik wil checken of een bestand bestaat. Nu heb ik effe geGoogled en dit gevonden:

Public Function FileExists(sFullPath As String) As Boolean
    Dim oFile As New Scripting.FileSystemObject
    FileExists = oFile.FileExists(sFullPath)
End Function

Maar als ik dat invul onder command1_click dan veranderd

End Sub >> in End Function. Dan start druk ik op F5 of play en dan zeurt ie dat 'End Sub' kwijt is. Nou dan verander ik de onderste End Function weer in End Sub, want ik heb toch al end function staan maar dan zegt ie nog steeds dat ik geen End Sub heb getypt maar dat staat er dus gewoon wel.

Kan iemand mij helpen? Ik wil dus gewoon checken of het bestand
C:\jeoma.txt bestaat

En nu weet ik dat jullie graag mij een VB2005 of 2008 code gaan geven maar die ken ik ook wel. Dus ik zou graag een vb6 code willen.

 

[That Guy]

ha!

if dir("C:\jeoma.txt") <> "" then
'bestaat
end if

:thumb:

 

[HellupUandMe]

Dank je ik wist niet dat het zo simple was.
Weet je misschien ook hoe ik text1.text naar jeoma.txt kan wegschrijven?
En hoe ik jeoma.txt kan lezen en in text1.text kan zetten?

 

[That Guy]

lezen

dim ff as integer: ff = freefile
inh as string: inh = space(1000)  [COLOR="SeaGreen"] 'space maakt een string met x spaties. Je moet 'ruimte' hebben om te lezen.[/COLOR]
[COLOR="SeaGreen"]'je kon geloof ik via filelen("C:\bla.txt") de lengte opvragen, maar dat ben ik vergeten xD[/COLOR]

open "C:\bla.txt" for binary as #ff
   get #ff, ,inh
close #ff

msgbox inh

schrijven

dim ff as integer, inh as string
inh = "AAAAH"
open "C:\bla.txt" for binary as #ff
   put #ff, ,inh
close #ff

Zoiets. Uit hoofd, niet getest, maar zo sla je dingen binary op. Probeer het maar. Anders ff googlen op "visual basic 6 file handling"



:thumb:

 

[HellupUandMe]

Ok bedankt

 

[Pizara]

Ik probeer even te begrijpen wat er nu gebeurt met die end sub / end function

het lijkt erop dat je een function binnen een sub wilt plaatsen.
Een function en een sub zijn eigenlijk hetzelfde, en kunnen daarom niet in elkaar werken. Het belangrijke verschil dat een function een 'return' waarde terug kan sturen en een Sub niet.

Private Sub mijnSub(byval mijnString as String)
End Sub

wordt aangeroepen als : Call MijnSub("ABC")

Private Function mijnFunction(byval mijnString as String) as Boolean
Return True
End Function

wordt aangeroepen als Dim MijnReturnWaarde as Boolean = mijnFunction("ABC")

MijnReturnWaarde wordt dus True.

 

[HellupUandMe]

O vandaar dat ie het niet pikte. Thanx