Unterschiedliche Ordnernamen
11.02.2021 07:13:50
Andreas
mit folgendem Code durchsuche ich eine Ordner Struktur.
Mein Problem, der letzte Ordner Pfad "Bestellung" , dieser Ordner kann auch "Bestellungen" oder "Bestellt" heißen. wie kann ich diese Abweichungen in den Code integrieren?
Danke für eure Hilfe!!
Private Sub CMD_Vorgang_öffnen_Click()
'Vorgang Kürzel Eintragen
Dim fso As Object
Dim unterordner As Object
Dim ordner As Object
Dim quellordner As String
Dim suchname As String
Set fso = CreateObject("Scripting.FileSystemObject")
quellordner = "K:\" & USF_Neuer_Artikel.TXT_Vorgang_zuordnen.text & "\"
suchname = USF_Neuer_Artikel.TXT_Neuer_Vorgang.text
Set unterordner = fso.getfolder(quellordner).subfolders
For Each ordner In unterordner
If Left(ordner.Name, Len(suchname)) = suchname Then Me.TXT_Vorgang_Kürzel = ordner.Name
Next
'Ordner Pfad öffnen
EinPfad = "K:" & "\" & USF_Neuer_Artikel.TXT_Vorgang_zuordnen.text & "\" & USF_Neuer_Artikel. _
TXT_Vorgang_Kürzel.text & "\" & "Bestellung" & ""
Shell "explorer.exe """ & EinPfad & """", vbNormalFocus
End Sub