Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Warning: preg_match() [function.preg-match]: Compilation failed: reference to non-existent subpattern at offset 67 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
 
Informationen über fileexist
 FileExists (Überprüfen ob Datei existiert)
Verfasst am: 18.06.2009, 11:55  Aufrufe: 1051 




 Listbox Textload
Verfasst am: 26.03.2008, 09:20  Aufrufe: 465 

Die Funktion FileExist solltest du eigentlich kennen. Ansonsten such sie dir bei den sources raus.

 Listbox Textload
Verfasst am: 26.03.2008, 09:02  Aufrufe: 465 

Ich weiß net ich glaub ich stell mich grade einfach nur dumm an aber es funktioniert immer noch nicht....bei FileExist "Sub oder Funktion nicht definiert". Mit freundlichen Grüßen Sad

 Listbox Textload
Verfasst am: 26.03.2008, 08:40  Aufrufe: 465 

Du kannst auch den Text aufeinmal auslesen und dann splitten beim Zeilenumbruch, aber dazu würde ich nicht umbedingt raten. Also. Beispiel: Dim ff as Integer Dim sBuffer as string If FileExists("blablabla.txt") then ff = FreeFile Open "blablabla.txt" for Input as #ff Do Until EOF(ff) Line Input #ff, sBuffer if LenB(sBuffer) <> 0 then List1 ...

 Wenn datei VORHANDEN -< Löschen. wenn nicht WEGLASSEN
Verfasst am: 12.02.2008, 07:10  Aufrufe: 1350 

geht auch via if fileexist(DATEI) then kill .... end if Die Funktion gibts in VB nicht, wenn dann musstd u schon die FileExists() Funktion mit hier her kopieren ...

 Wenn datei VORHANDEN -< Löschen. wenn nicht WEGLASSEN
Verfasst am: 11.02.2008, 22:50  Aufrufe: 1350 

geht auch via if fileexist(DATEI) then kill .... end if

 Snippets Sammlung
Verfasst am: 08.12.2007, 21:18  Aufrufe: 2013 

dll" () As Long Private Function AppPath(ByVal zPath As String) As String If Right$(zPath, 1) = "\" Then AppPath = zPath Else AppPath = zPath & "\" End Function Private Function FileExist(ByVal strPath As String) As Boolean On Local Error GoTo ErrFile Open strPath For Input Access Read As #1 Close #1 FileExist = True Exit Function ...

 Snippets Sammlung
Verfasst am: 08.12.2007, 21:06  Aufrufe: 2013 

Private Declare Function GetTickCount Lib "kernel32" () As Long Public Function WaitHere(ByVal Seconds As Long) Dim x1 As Long, x2 As Long x2 = GetTickCount + (Seconds * 1000) Do Until x1 >= x2 x1 = GetTickCount DoEvents Loop End Function FileExist - Überprüft ob eine Datei existiert oder nicht Public Function FileExists(ByVal FileName As String) As ...

 Datein kopieren und checken lasse! PLEASE HELP!
Verfasst am: 20.03.2007, 17:49  Aufrufe: 451 

txt" Fileexist Then Kill "C:\1.

 FileExists
Verfasst am: 11.08.2004, 15:38  Aufrufe: 296 



 FileExists
Verfasst am: 10.08.2004, 21:32  Aufrufe: 296 






[ Time: 4.5062s ][ Queries: 101 (4.4536s) ][ GZIP on - Debug on ]