Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen einlesen

Dateinamen einlesen
02.08.2007 13:06:00
Tito
Hallo Leute noch eine Frage!!
Ich möchte wie unten "Dateinamen suchen" - VERKNÜPFUNGEN suchen!!
HILFE?!, Danke

Sub Suchen()
Dim iCounter As Integer
With Application.FileSearch
.LookIn = Range("Daten!G1").Value
.Filename = "BL*.xls"
.Execute
For iCounter = 1 To .FoundFiles.Count
Sheets("Daten").Cells(iCounter + 1, 7).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
End Sub


9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen einlesen
02.08.2007 13:10:12
sergiesam
Hi,
das sollten üblicherweise "*.Lnk" für Link Dateien sein.
also: .Filename = "BL*.lnk"
Versuchs mal, ich kanns leider nicht testen.
Gruß,
Sam

AW: Dateinamen einlesen
02.08.2007 13:14:16
Tito
Leider nein er listet nichts auf!!
Weist noch eine andere Möglichkeit?

AW: Dateinamen einlesen
02.08.2007 13:28:40
Harry
Hallo,
probier mal

Sub Suchen()
Dim iCounter As Integer
With Application.FileSearch
.LookIn = Range("Daten!G1").Value
      .Filename = "*.lnk"
.FileType = msoFileTypeAllFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
Sheets("Daten").Cells(iCounter + 1, 7).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
End Sub


Gruß
Harry

Anzeige
AW: Dateinamen einlesen
02.08.2007 13:33:00
Tito
Nein, funktioniert leider nicht!
Trotzdem danke!

AW: Dateinamen einlesen
02.08.2007 13:40:00
Harry
da es bei mir funktioniert (aber Excel2003 statt 97 -Grund?)
evtl. NewSearch einfügen

Sub Suchen()
Dim iCounter As Integer
With Application.FileSearch
      .NewSearch
.LookIn = Range("Daten!G1").Value
      .Filename = "*.lnk"
.FileType = msoFileTypeAllFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
Sheets("Daten").Cells(iCounter + 1, 7).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
End Sub


Gruß
Harry

AW: Dateinamen einlesen
02.08.2007 13:52:00
Tito
Es funktioniert, aber nur wenn es sich um eine Datei handelt, aber
nicht wenn es eine Verknüpfung auf einen Ordner Ist!!
Weisst du weiter?

Anzeige
AW: Dateinamen einlesen
02.08.2007 14:09:00
Tito
Es funktioniert, aber nur wenn es sich um eine Datei handelt, aber
nicht wenn es eine Verknüpfung auf einen Ordner Ist!!
Weisst du weiter?

AW: Dateinamen einlesen
02.08.2007 15:30:00
Harry
Probiers mal so

Sub suchen2()
pfad1 = Range("Daten!G1").Value & "\*.lnk" ' in G1 nur "C:\Verz." ohne abschließendes "\"
Name1 = Dir(pfad1, 0)
iCounter = 2
Do While Name1  ""
Sheets("Daten").Cells(iCounter, 7).Value = Name1
Name1 = Dir
Loop
End Sub


AW: Dateinamen einlesen
02.08.2007 15:37:32
Harry
uppss, natürlich so

Sub suchen2()
pfad1 = Range("Daten!G1").Value & "\*.lnk" ' in G1 nur "C:\Verz." ohne abschließendes "\"
Name1 = Dir(pfad1, 0)
iCounter = 2
Do While Name1  ""
Sheets("Daten").Cells(iCounter, 7).Value = Name1
   iCounter = iCounter + 1
Name1 = Dir
Loop
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige