fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

open test

Uploader:	Eternal_Pain
Datum/Zeit:	14.04.2013 13:45:41

Function FileCheck(byval filename as String) as Integer

    Dim as Integer F     = Freefile

    Dim as Integer Check

    Check = Open (filename for binary access read as #F)

    Close #F



    If (Check = 0) Then

        Function = -1

    Else

        Function = 0

    End If

End Function



Namespace test

    Sub bla()

        Dim F as Integer

        Dim L as Integer



        If FileCheck("config.cfg") Then

            F = Freefile



            Open "config.cfg" for binary access read as #F

                get #F,,L



            Close #F



        End If

    end sub

End Namespace

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.