Hallo, danke für die Antwort!
Ich habe ein neues(leeres) Formular in Access 365 erstellt,
dort einen Button eingebaut und den Sourcecode von oben übernommen.
Bei der Ausführung wird für kurze Zeit ins DOS-Fenster verzweigt, danach wird allerdings im Direktbereich nur die Überschrift >>[RESULTS]<< angezeigt.
Habe ich da etwas übersehen?
So sieht der Code aus:
#################################################################################
Option Compare Database
Option Explicit
Private Sub Befehl3_Click()
Dim strFindExpr As String
Dim strFolder As String
strFindExpr = "\Gesamtausgaben"
strFolder = "C:\"
Dim strCmd As String
Dim strResult As String
strCmd = "dir ""$FOLDER"" /A:D /B /S | find /I ""$FINDEXPR"""
strCmd = Replace$(strCmd, "$FOLDER", strFolder, Compare:=vbBinaryCompare)
strCmd = Replace$(strCmd, "$FINDEXPR", strFindExpr, Compare:=vbBinaryCompare)
With CreateObject("WScript.Shell")
strResult = .Exec("%comspec% /C " & strCmd).StdOut.ReadAll
End With
Debug.Print "[RESULTS]"
Debug.Print strResult
End Sub
#################################################################################
Hier ein Auszug aus der Verzeichnisstruktur:
D:\ |
D:\Daten_Stadtkapelle\Notenarchiv\Gesamtausgaben |
D:\Daten_Stadtkapelle\Notenarchiv\Work |
D:\Daten_Stadtkapelle\SK_Zentrale |
D:\Daten_Stadtkapelle\SK_Zentrale\Buttonicons |
|