VisualBasic Datei aus Ordner öffnen, der nicht vollständig bekannt ist

Rappi789

Lt. Junior Grade

Registriert

Mai 2010

Beiträge

369

• 24. Mai 2016

• #1

Hallo Zusammen,

für das Büro schreibe ich gerade an einem Programm mit VBA Excel 2010. Das Programm soll (dieser Teil erstmal) Datein vom Server kopieren. Die Datein befinden sich zum Beispiel im Ordner "99_AUFTest99_das_ist_der_Test_Ordner"

Das Problem ist nun, das in nicht den gesamten Ordnernamen kenne, also:
Teil 1 ist immer Bekannt, einmalig und hat immer das selbe Schema
Teil 2 ist eine Beschreibung und nicht bekannt
99_AUFTest99_das_ist_der_Test_Ordner

Ist es irgendwie möglich, nach "Teil1" zu suchen und das passende Ergebnis (passenden Ordner) zu öffnen, bzw. das Verzeichnis auszulesen, damit das Programm weiter arbeiten kann?

Wäre echt supa, wenn mir da jemand weiter helfen könnte!


Vielen Dank!
MFG

 

Zuletzt bearbeitet: 24. Mai 2016

H

HominiLupus

Banned

Registriert

Okt. 2013

Beiträge

33.550

• 24. Mai 2016

• #2

Google "VBA read a directory"
Z.B. http://stackoverflow.com/questions/10380312/loop-through-files-in-a-folder-using-vba insbesondere die "GetFolder ()" Funktion.

 

N

Nico25394

Lieutenant

Registriert

Juli 2009

Beiträge

562

• 24. Mai 2016

• #3

Hi,

ich hatte demletzt erst ein ähnliches Problem, nur dass ich eine bestimmte Zelle nach Text durchsuchen musste, evtl hilft dir das ein bisschen weiter
If (InStr(1, Worksheet.Cells(Zeile, Spalte).Value, "gesuchter Text", vbBinaryCompare) > 0) Then
Do Something
End If

Ich würde Probieren ob du den im System abgelegten Ordnernamen Statt der Zelle angeben kannst und dann eben den bekannten Teil findest

Ich hoffe ich konnte helfen,

Gruß
Nico

 

Rappi789

Lt. Junior Grade

Ersteller dieses Themas

Registriert

Mai 2010

Beiträge

369

• 24. Mai 2016

• #4

gleichmal Danke
GetFolder klingt ja recht vielversprechend. Das werde ich mir einmal genauer anschauen...

 

L

lordGammA

Ensign

Registriert

Okt. 2006

Beiträge

160

• 24. Mai 2016

• #5

Kurz gesagt würde ich mir den gesamten Ordnerinhalt holen und im Namen jedes enthaltenen Ordners nach dem bekannten Teil suchen ("99_AUFTest99"). Ungefähr so wie Nico das geschrieben hat.

Sehe gerade, HominiLupus hat dazu schon den passenden Link gepostet!

 

xxMuahdibxx

Fleet Admiral

Registriert

Juli 2011

Beiträge

34.351

• 24. Mai 2016

• #6

hm andere Überlegung von mir :

Es kommt ja drauf an wie der Ordnername angezeigt wird wenn es im 8.3 Modus also dem alten DOS Modus ist kommt ja eigentlich
6+Tilde+Anhang.Dateiendnung

https://de.wikipedia.org/wiki/8.3

Wenn jetzt die Ordner auf diesen 6 Buchstaben eindeutig sind kann man das probieren.
Wenn er dann auch einzigartig ist dann kommt eh 6~1 dabei raus.

https://dotnet-snippets.de/snippet/den-kurzen-pfad-einer-datei-ermitteln-8-3-format/335

 

Rappi789

Lt. Junior Grade

Ersteller dieses Themas

Registriert

Mai 2010

Beiträge

369

• 24. Mai 2016

• #7

Ich habe mir das ganze nochmal genauer überlegt.
Es wird vielleicht wirklich einfacher sein, wenn ich mir den Ordnerinhalt auslesen lasse und dann die Texte vergleiche. Dann ist es einfacher wenn der Ordner nicht vorhanden sein sollte eine zweite "Auswertung" zu starten.

Vorerst schon mal Danke für die schnellen Tipps!

 

Zuletzt bearbeitet: 24. Mai 2016