Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien auflisten

Dateien auflisten
20.04.2005 17:41:40
tino
Hallo,
mit unten stehenden Code Liste ich
Dateien aus einem Ordner auf und diese werden
mit Hyperlinks versehen.
Versuche nun aber bekomme es nicht hin.
1. anstatt des ganzen Pfads möchte
ich nur den Namen der Datei als Text?
2. Ist es möglich dies anstatt
in Zellen aufzulisten, dies in einer ListBox
zu machen?
Wer kann mir Helfen um dies zu realisieren?
Danke für Eure Hilfe
MfG
Tino


Sub Dateiliste()
Range("A1").Select
Dim i As Long
Const verz = "D:\VBA\"
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.*" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
End With
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien auflisten
20.04.2005 18:45:14
Rolf Beißner
Hallo Tino,
Userform mit Listbox anlegen
und im Initialize-Ereignis
diesen Code hinterlegen.
fG
Rolf
...
Listbox1.List=FileList("D:\VBA\")
...
'Dateien eines Verzeichnisses ermitteln

Function FileList(folderspec) As Variant
Dim fs, f, fc, fl As Object
Dim n As Integer, i As Integer
Dim x()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
n = fc.Count
i = 0
For Each fl In fc
i = i + 1
ReDim Preserve x(i)
x(i) = fl.Name
Next
If i = 0 Then
ReDim x(1)
x(1) = ""
End If
FileList = x
End Function

Anzeige
AW: Dateien auflisten
20.04.2005 19:00:28
tino
Hallo Rolf Beißner,
Funktioniert Danke. Nur noch eine Sache,
diese aufgelisteten Dateien, sollen nun als
Hyperlink auf diese Datei Funtionieren.
Ist dies möglich? (muss nicht ListBox sein)

Gruss
Tino
AW: Dateien auflisten
20.04.2005 19:28:11
andre
Hallo Tino,
in der Listbox wird das nix, da wärst Du wieder bei Deinem Originalcode als Lösung.
Grüße, ANdre
Hilfe zu erstens
20.04.2005 20:04:22
tino
Hallo,
helft mir nur noch bei meiner ersten Frage.
1. anstatt des ganzen Pfads möchte
ich nur den Namen der Datei als Anzeigetext?
Danke für Eure Hilfe
MfG
Tino

Sub Dateiliste()
Range("A1").Select
Dim i As Long
Const verz = "D:\VBA\"
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.*" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
End With
End Sub

Anzeige
AW: Hilfe zu erstens
20.04.2005 20:10:38
ransi
hallo tino

dir(.FoundFiles(i))
gibt nur den dateinamen
ransi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige