Thema Datum  Von Nutzer Rating
Antwort
21.10.2011 11:14:42 Chris
NotSolved
Blau Textdatei auslesen
 21.10.2011 19:11:22 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
21.10.2011 19:11:22		 Views:
925		 Rating:
     
Antwort:
  Ja
Thema:
Textdatei auslesen

Wird wohl and dem Filter mit like liegen.

Versuchs mal so (Suchstring ist jetzt optional und es wird mit instr statt mit like verglichen).

'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
'alle Dateien eines Ordners in einem Array ausgeben
'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Function DateienListe(ByVal Path As String, _
                     Optional ByVal SuchString As String = "") As Variant
    Dim Ordner As Object, Datei As Object
    Dim arr() As Variant, i As Integer
    Dim TS$
    
    On Error GoTo Ende
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    Set Ordner = CreateObject("Scripting.FileSystemObject").GetFolder(Path)
    If Ordner.Files.Count = 0 Then GoTo Ende
 
    For Each Datei In Ordner.Files
        TS = Dir(Datei.Name)
        If InStr(1, TS, SuchString) Or SuchString = "" Then
            i = i + 1
            ReDim Preserve arr(1 To i)
            arr(i) = Datei.Name
        End If
    Next
 
    If i > 0 Then DateienListe = arr
Ende:
Set Datei = Nothing: Set Ordner = Nothing
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.10.2011 11:14:42 Chris
NotSolved
Blau Textdatei auslesen
 21.10.2011 19:11:22 Till
NotSolved