|
|
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

|
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
|
|
|