Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen auslesen aber ohne....

Dateinamen auslesen aber ohne....
16.02.2004 22:17:18
Jochen
Hallo Leute,
ich suche einen effektiven Weg, Dateinamen aus einem Verzeichnis
auszulesen aber ohne Pfad und ohne Extension.
Mit den Textfunktionen Left, Mid und Right ist das ja eine ziemliche
Fummelei. Geht das auch irgendwie einfacher?
Grüße Jochen

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

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen auslesen aber ohne....
16.02.2004 22:38:02
Ramses
Hallo
welchen Code verwendest du denn zum auslesen der Dateien?
Schau dir mal die Funktion "InStrRev()" an, damit geht es ziemlich einfach.
Aber ohne Left() wird es nicht gehen
Gruss Rainer
AW: Dateinamen auslesen aber ohne....
16.02.2004 22:47:19
Jochen
Hi Ramses,
das ist der Code zum Auslesen, klappt auch gut:
Option Explicit

Sub Lesen()
Dim objFileSearch As Object, lngFoundFiles As Long
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = "C:\Eigene Dateien\Excel\"
.FileName = "*.xls"
.SearchSubFolders = False
If .Execute > 0 Then
For lngFoundFiles = 1 To .FoundFiles.Count
Sheets("Dateinamen").Cells(lngFoundFiles, 1) = .FoundFiles(lngFoundFiles)
Next
End If
End With
Sheets("Dateinamen").Columns(1).AutoFit
Set objFileSearch = Nothing
End Sub

Grüße Jochen
Anzeige
AW: Dateinamen auslesen aber ohne....
16.02.2004 22:54:16
K.Rola
Hallo,
verwende folgende Funktion:

Function Name_pur(strPfad As String) As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
Name_pur = objFso.GetBaseName(strPfad)
End Function

wenn du die nicht eingebaut bekommst, nochmal melden.
Gruß K.Rola
Hab es eingebaut, klappt super mT
16.02.2004 23:16:27
Jochen
Danke K.Rola,
das kannte ich noch gar nicht. Man lernt halt nie aus. Da ist es ja
sogar egal, wie lang der Pfad ist, das klappt auf jeden Fall.
Grüße Jochen
AW: Dateinamen auslesen aber ohne....
16.02.2004 23:02:14
Ramses
Hallo
probier mal


Option Explicit
Sub Lesen()
Dim objFileSearch As Object, lngFoundFiles As Long
Dim tmpStr As String
Set objFileSearch = Application.FileSearch
With objFileSearch
  .LookIn = "C:\Eigene Dateien\Excel\"
  .Filename = "*.xls"
  .SearchSubFolders = False
  If .Execute > 0 Then
    For lngFoundFiles = 1 To .FoundFiles.Count
        tmpStr = .FoundFiles(lngFoundFiles)
        tmpStr = Right(tmpStr, Len(tmpStr) - InStrRev(tmpStr, "\", -1))
      Sheets("Dateinamen").Cells(lngFoundFiles, 1) = tmpStr
    Next
  End If
End With
Sheets("Dateinamen").Columns(1).AutoFit
Set objFileSearch = Nothing
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige