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