Dateien aus Unterverzeichnissen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Barbara!
Geht schon!
Und mit diesem Code sogar bequem mit Verzeichnisauswahl!
'Created By Chip Pearson and Pearson Software Consulting Services
'© Copyright 1997-2003 Charles H. Pearson
' http://www.cpearson.com/excel/BrowseFolder.htm
Option Explicit
'Using the Shell Controls Library
'
'First you need to set a reference to the "Microsoft Shell
'Controls And Automation" object library.
'In the VBA Editor, go to the Tools menu, choose References,
'and scroll down to this item and put a check next to it.
'
'Then, copy the following code to a standard code module:
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260

Function BrowseFolder(Optional Caption As String, _
Optional InitialFolder As String) As String
Dim SH As Shell32.Shell
Dim F As Shell32.Folder
Set SH = New Shell32.Shell
Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, _
InitialFolder)
If Not F Is Nothing Then
BrowseFolder = F.Items.Item.Path
End If
End Function
'## Achtung ##
'Unter > Extras > Verweise muss zuerst der Verweis auf "Microsoft Shell
'Controls And Automation" gesetzt werden!
'#############

Sub Textdateien_Auslesen()
Dim varFile
Dim strPath As String
strPath = BrowseFolder("Verzeichnis wählen", "C:\")
If strPath = "" Then
MsgBox "Kein Verzeichnis ausgewählt!"
Exit Sub
End If
With Application.FileSearch
.NewSearch
.LookIn = strPath
.Filename = "*.txt"
.SearchSubFolders = True
If .Execute() > 0 Then
For Each varFile In .FoundFiles
MsgBox varFile ' hier deine Bearbeitung/Auswertung
Next varFile
End If
End With
End Sub

Gruß Sepp

Sub Datei_Waehlen() Dim strDat As String ChDrive "C:" 'hier kann man das Laufwerk ChDir "C:\" 'und den Pfad vorgeben strDat = Application.GetOpenFilename("Alle Dateien (*.*),*.*") 'hier kann man auch einen Filter einsetzen! 'ZB.("Textdateien (txt.*; ini.*; dat.*),txt.*; ini.*; dat.*") 'oder ("Excel Files (xls.*; xla.*; xlt.*),xls.*; xla.*; xlt.*") If strDat <> "Falsch" Then MsgBox strDat 'den String strDat kann man dann weiterverarbeiten! End If End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread