Versteckte Ordner ansteuern und einen bestimmten Öffnen

[mustermann]

Hallo Gemeinde,

ich habe auf meinem Laufwerk Ordner mit personenbezogenen Daten der Mitarbeiter - aus Datenschutzgründen habe ich diesen versteckt, damit unwissende Personen nicht auf diesen zugreifen.
Jetzt findet Access natürlich diesen Ordner auch nicht! Davor konnte ich diesen Ordner mit follgendem Code

Code [Auswählen] Erweitern

Dim strPfad  As String
Dim strVerzeichnis As String

strPfad = "XXXX"
strVerzeichnis = strPfad & Me!MitarbeiterID
If Dir(strVerzeichnis, vbDirectory) <> "" Then
    FollowHyperlink strVerzeichnis
Else
    FollowHyperlink strPfad
End If

ansteuern und einen bestimmten Ordner nach MitarbeiterID öffnen. Gibt es die Möglichkeit den Code so zu verändern, dass Access den versteckten Ordner ansteuert und öffnet?

Danke im Voraus

MfG

Mustermann

[markusxy]

Schau mal in die VBA Hilfe.
Da gibt es eine Liste aller Attribute. Die Müssen als "Bitmask" übergeben werden.
Wenn es ein verstecktes Verzeichnis ist, dann z.B. so:

If Dir(strVerzeichnis, vbDirectory or vbHidden)

oder

If Dir(strVerzeichnis, vbDirectory + vbHidden)

Oder

Dir(strVerzeichnis, 18)
Alle drei Anweisungen sind in diesem Fall immer das gleiche.

LG Markus

[mustermann]

Vielen Dank, das habe ich gesucht!)

[mustermann]

Hallo,

noch eine andere Frage.
Wie kann ich den Code erweitern, sodass Access einen Ordner in dem Verzeichniss "XXX" anlegen, wenn dieser nicht vorhanden ist?
Name des Ordners = soll die Zahl "MitarbeiterID" sein.

Danke

[Lachtaube]

Mit den Funktionen unter Feststellen, ob Datei bzw. Verzeichnis existiert könntest Du feststellen, ob ein Ordner bzw. eine Datei existiert und falls nicht, mit der MkDir-Anweisung einen Ordner anlegen.

[mustermann]

Also ich habe jetzt den Code für das Prüfen und Anlegen von Ordnern zusammengebastelt, sieht folgendermaßen aus:

Code [Auswählen] Erweitern

Dim strPfad As String
Dim strVerzeichnis As Integer

strPfad = "XXX" & [MitarbeiterID] 'alles eine Zeile

  If Dir(strPfad, vbDirectory + vbHidden) <> "" Then
      MsgBox "Ordner ist schon vorhanden"
  Else
  strVerzeichnis = MsgBox("Der Ordner ist nicht vorhanden." _
          & vbNewLine _
          & "soll der Ordner angelegt werden?!", vbYesNo)
      If strVerzeichnis = vbYes Then
      MkDir strPfad
      MsgBox "Ordner wurde angelegt!"
      Else
      MsgBox "Es wurden keine Änderungen vorgenommen"
      Exit Sub
  End If
End If
End Sub

Habe aber Schwierigkeiten diesen Code mit dem Code, Ansteuern und Öffnen von Ordnern, zu verknüpfen:

Code [Auswählen] Erweitern

Dim strPfad  As String
Dim strVerzeichnis As String

strPfad = "XXX\"
strVerzeichnis = strPfad & Me!MitarbeiterID
If Dir(strVerzeichnis, vbDirectory + vbHidden) <> "" Then
    FollowHyperlink strVerzeichnis
Else
    FollowHyperlink strPfad
End If
Wie verknüpfe ich diese beiden Codes, so dass nach dem der Ordner erstellt wurde, dieser auch geöffnet wird oder falls dieser schon vorhanden, einfach geöffnet wird?