Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Ordnernamen auslesen

VBA Ordnernamen auslesen
10.01.2022 13:00:13
Herbert
Guten Tag,
wie kann ich Ordnernamen nur bis zu einer bestimmten Anzahl von Zeichen auslesen?
Code:

Option Explicit
Sub UnterordnerAnzeigen()
Dim objFSO As Object
Dim objFolder As Object
Dim strPfad As String
Dim objSubfolder As Object, colSubfolders As Object
Dim i As Integer
strPfad = "X:\Test"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPfad)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder In colSubfolders
i = i + 1
Range("A" & i).Value = objSubfolder
Range("B" & i).Value = objSubfolder.Name
Next objSubfolder
Set objFolder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
End Sub
Also anstatt das er mir jetzt die kompletten Namen ausgibt,
soll er mir nur die ersten 10 Zeichen ausgeben,
wie genau stelle ich das an?
Um den Code zu verwenden,
einfach nur den Pfad austauschen.
Ich bin jeder Hilfe dankbar!
MfG
Herbert

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Ordnernamen auslesen
10.01.2022 13:04:56
MCO
Range("B" & i).Value = left(objSubfolder.Name,10)
Perfekt!
10.01.2022 14:29:02
Herbert
Hallo,
danke für deine Hilfe,
funktioniert einwandfrei.
MfG
Herbert
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige