[VB 6.0] File zoeken

[Verwijderd]

Hallo medescripters,

Ik ben met Visual Basic bezig met een MSN Bot, ik heb nu dus ook een stukje, waar je 'ASCII' Logos kan Saven, Loaden en Deleten.

Nu is mijn probleem, dat als je bijvoorbeeld opslaat als Hallo.txt en daarna een ander logo ook als Hallo.txt saved, hij gelijk erover heen saved, de Filebox heet File1, en het balkje waarin de Savename staat heet SaveName, nu lijkt mij dat dit met een ( makkelijke ) if/else constructie mogelijk is, maar het probleem is, ik weet niet hoe!?

ik probeer dus zoiets als dit:

code:

Save = Savename.Text
If File1.List = Save Then
Msg = MsgBox ( "This file already exists, Overwrite?" VBYesNo, vbQuestion )
If Msg = VBNo Then
Exit Sub
Else
GoTo Save
End if
End if

En dan Verderop

code:

Save:
'Code om te Saven

Ik hoop dat iemand me kan helpen ( dit hierboven werkt dus niet
) .

Grtz. Isio

[Gerco]

code:

Public Function FileExists(sFile as String) As Boolean
  If Dir(sFile) <> "" Then 
    FileExists = True
  Else
    FileExists = False
  End If
End Function

[Verwijderd]

Op vrijdag 12 april 2002 21:29 schreef Gerco het volgende:

code:

Public Function FileExists(sFile as String) As Boolean
  If Dir(sFile) <> "" Then 
    FileExists = True
  Else
    FileExists = False
  End If
End Function

Heel erg bedankt, maar nu geeft hij de Fout:

Expected: Lib

En Sinds ik niet weet wat ik daarbij moet invullen bij deze Functie, weet je mischien hoe dat moet?

[Lister]

Kan je niet beter de Visual Basic Common Dialog control gebruiken, die kan dan allemaal voor je regelen. Kijk maar in de VB help.

[Gerco]

Op vrijdag 12 april 2002 21:38 schreef Isio het volgende:
Expected: Lib

Waar geeft 'ie die fout dan?

Je kan de functie gewoon zo gebruiken:

code:

If FileExists("c:\autoexec.bat") then msgbox "bestand gevonden"

[Verwijderd]

Heel misschien bestaat de functie 'FileExists' al ergens in een referentie...
Probeer de procedure-naam eens te veranderen:

code:

Public Function MyFileExists(sFile as String) As Boolean
    MyFileExists = (Dir(sFile) <> vbNullString)
End Function

[Verwijderd]

ik heb het inmiddels al werkende, je moet ff Public veranderen in Private, en in je General Declarations zetten
in mijn Module deed ie het namelijk niet

Bedankt in ieder geval