Einfache Dateinamensabfrage

... komplette Frage anzeigen

1 Antwort

Am einfachsten ist das mit batch: dir index.htm /S

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von onkelfrieda
02.12.2013, 12:24

hab ich auch schon versucht aber ich bräuchte dann explizit NUR den pfad wo die jeweiligen index-dateien drin sind.

Kann ich mit dir auch nur den Pfad abfragen?

0
Kommentar von Suboptimierer
02.12.2013, 12:45

So könnte es mit VBA aussehen:

Public Function SucheDateien(sDateiname As String, sOrdner As String, bUnterordner As Boolean) As String
  Dim fso
  Dim oDateiliste
  Dim oDatei
  Dim oVerzeichnis
  Dim oVerzeichnisliste
  Dim sTemp

  SucheDateien = ""
  sTemp = ""
  Set fso = CreateObject("Scripting.FileSystemObject")

  Set oVerzeichnis = fso.GetFolder(sOrdner)
  Set oDateiliste = oVerzeichnis.Files
  SucheDateien = ""
  For Each oDatei In oDateiliste
    If oDatei.Name = sDateiname Then _
      sTemp = "[" & oDatei.Path & "]"
      'Debug.Print oDatei.Path
  Next

  If bUnterordner Then
    Set oVerzeichnisliste = oVerzeichnis.SubFolders
    For Each oVerzeichnis In oVerzeichnisliste
      sTemp = sTemp & SucheDateien(sDateiname, oVerzeichnis.Path, True)
    Next
  End If

  SucheDateien = sTemp
End Function
1

Was möchtest Du wissen?