Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Stringvergleich funzt nicht
Autor: depp06
Datum: 06.09.07 18:01
ich will alle dateien mit der Endung .foo auflisten, das prog macht aber bei der stelle if !(foostr <> "foo") zicken, es kommt immer ein syntax error. kann man vb so einstellen dass bei einen fehler ein anständiger log komm und keine blöde messagebox die man immer wieder wegklicken muss?   earchInFolder(ByVal Folderspec As String) Dim FSO2 As New FileSystemObject Dim SearchFolder As Folder Dim FD As Folder, FI As File Dim EachFil As Files, EachFold As Folders Dim foostr As String Set SearchFolder = FSO2.GetFolder(Folderspec) Set EachFil = SearchFolder.Files Set EachFold = SearchFolder.SubFolders DoEvents For Each FD In EachFold SearchInFolder CStr(FD) Next FD For Each FI In EachFil kacke = Right(FI.Name, 3) if !(foostr <> "foo") Combo1.AddItem (FI.Name) DoEvents Next FI Set EachFil = Nothing Set EachFold = Nothing Set FSO2 = Nothing End Sub

Stringvergleich funzt nicht	892	depp06	06.09.07 18:01
Re: Stringvergleich funzt nicht	440	Prian0815	07.09.07 08:53
Re: Stringvergleich funzt nicht	438	mst547	07.09.07 19:09

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen