VisualBasic einzige Datei im Ordner öffnen

>|Sh4d0w|< · 12. Juli 2016

Hallo zusammen,
Ich möchte mit VB innerhalb eines Ordners, z.B. auf S:\Daten eine Datei öffnen, die aber am Ende von der Benennung unterschiedlich heißt. z.B. sind im Ordner Daten folgende Dateien vorhanden.
- Datei-001.mdb
- Datei-002.mdb
- Datei-003.mdb
- Datei-004.mdb
usw...

Je nach Berechtigung wird dem User aber nur eine Datei angezeigt und eine Leseberechtigung existiert. Derzeit habe ich ein Visual Basic Script, das eine festen Pfad öffnet. Dies möchte ich etwas dynamischer anhand der einzigen, aufzufindenden Datei lösen. Wie kann ich das im VB lösen?
es wäre gut, wenn man quasi Platzhalter angeben könne.
z.B.:
S:\Daten\Datei~.mdb
S:\Daten\Datei%.mdb

hroessler · 12. Juli 2016

Hallo,

VBA?
VBScript?
VB Classic?
VB.net?

greetz
hroessler

>|Sh4d0w|< · 12. Juli 2016

Müsste VBA sein (Office\Entwicklertools)

Aktuell schaut die Zeile zum Aufrufen folgendermaßen aus:

Code:

Set Db = OpenDatabase(Name:="S:\Daten\Datei-001.mdb")

hroessler · 12. Juli 2016

Sind die Recht irgendwo hinterlegt? AD, Config-File, ...?

>|Sh4d0w|< · 12. Juli 2016

Die Rechte sind im AD über Gruppen hinterlegt. Jeder User sieht daher nur genau eine Datei und sollte dynamisch geöffnet werden (über ein Makro im Dokument)

wirelessy · 12. Juli 2016

Wenn der User eh nur das eine File im Ordner sieht, müsstest du halt einfach sinngemäß nen Dir auf den Ordner machen und die eine Datei nehmen.

hroessler · 12. Juli 2016

Ich würde das ganze so lösen (also mit C#, ist aber evtl. auch in VBA lösbar). Ich würde mir entweder den Dateipfad anhand der Berechtigung per Webservice holen, oder das ganze als zweite Möglichkeit in der DB speichern und den Pfad anhand der Berechtigungen auslesen.

greetz
hroessler

>|Sh4d0w|< · 12. Juli 2016

Mit dem Dir habe ich es bereits ausprobiert und komme irgendwie nicht klar. zumindest meckert er beim debuggen.

Wie würde das denn in der korrekten Syntax mit dem oben genannten Beispiel lauten?

Das war mal ein gescheiteter Versuch:

Code:

strPath = "S:\Daten\"
strExt = "*.mdb"
Dim strFile As String
If strPath = "" Then
    Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Set Db = OpenDatabase(Name:="strFile")
Loop
End If

wirelessy · 12. Juli 2016

Keine Ahnung, ich weiger mich mit VBA zu beschäftigen

Ekelhafte Sprache ist das.

https://msdn.microsoft.com/de-de/library/dk008ty4(v=vs.90).aspx sagt aber:

Code:

' Returns filename with specified extension. If more than one *.INI
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

>|Sh4d0w|< · 12. Juli 2016

Okay als mit dem Beispiel funktioniert das

Weiß aber nicht, wieso ich den Ordnerpfad beim Aufruf nochmal angeben muss, da er sonst nur den Dateinamen nimmt.

Code:

Dim MyFile As String

MyFile = Dir("S:\Daten\*.mdb")
Set Db = OpenDatabase(Name:="S:\Daten\" & MyFile)

Ich hätte nochmal eine weitere Frage diesbezüglich. Wie müsste ich das angeben, wenn er noch nach einem x-beliebigen Ordner suchen soll. also wenn unter S:\Daten jeweils zur Datei ein Unterordner existiert, weil ich gerne auf Ordner berechtigen möchte. Ein einfaches Einfügen eines *\ hinter dem Pfad bringt nichts.

wirelessy · 13. Juli 2016

Obiger Link sagt: MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.

>|Sh4d0w|< · 13. Juli 2016

Funktioniert, danke

Suche

VisualBasic einzige Datei im Ordner öffnen

>|Sh4d0w|<

Commander

hroessler

Gast

>|Sh4d0w|<

Commander

hroessler

Gast

>|Sh4d0w|<

Commander

wirelessy

Captain

hroessler

Gast

>|Sh4d0w|<

Commander

wirelessy

Captain

>|Sh4d0w|<

Commander

wirelessy

Captain

>|Sh4d0w|<

Commander

Ähnliche Themen