Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiendung per Textbox auslesen

Dateiendung per Textbox auslesen
21.08.2003 20:16:32
Claus
Hi Leute!

Ich brauche beim Auslesen einer Textbox Hilfe. In einer Userform ist eine Textbox mit dem Namen TextBoxFree. Dort soll der Anwender die zu suchende Dateiendung eingeben (z.B.: acm oder cdd oder abc) und dann sollen die gefundenen Dateienamen in die Tabelle kopiert werden. Bei den mso-Typen klappt das auch. Lese ich die Box falsch aus? Wie mache ich es richtig? Danke für eure Hilfe...



With Application.FileSearch
  .NewSearch
  .LookIn = verz
  
  If chkverz.Value = False Then
  .SearchSubFolders = False
  Else
    .SearchSubFolders = True
  End If
  
  If optexcel.Value = True Then
  .FileType = msoFileTypeExcelWorkbooks
  End If
  
  If optfree.Value = True Then
  .FileType = TextBoxFree
  End If
  .Execute

  For i = 1 To .FoundFiles.Count
    ActiveCell.Value = .FoundFiles(i)
    ActiveCell.Offset(1, 0).Select
  Next i

End With

     Code eingefügt mit Syntaxhighlighter 2.4

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Gelöst...
21.08.2003 20:57:54
Claus
If optfree.Value = True Then
.Filename = "*." & TextBoxFree
End If


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige