Fremde Datei (*.cue") schließen
24.02.2006 21:33:28
Fritz
Ich benötige mal wieder Hilfe.
Mit Shell usw. öffne ich eine Cuecards-Datenbank. Wie kann ich die wieder schließen mit einem Makro? Mit "Close" habe ich es probiert und mich auch mit FileSystemObject versucht, ich bekomme es aber nicht gebacken.
Sub cuecards_schliessen()
Dim pfad As String
Dim cuedb As String
Dim wks As Worksheet
Dim Datei As String
Dim fso As Object
Set wks = Sheets("Basics")
pfad = wks.Range("A2")
cuedb = wks.Range("a1")
Datei = pfad & " " & Chr$(34) & cuedb & "\Test.cue"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Datei = fso.CreateObject("Datei")
If Datei.IsOpen Then Close Datei
End Sub
irgendwie liege ich völlig daneben sowohl bei der Variablendeklaration für "Datei", als auch für die Ausführung des FSO, habe ich das Gefühl. Aber keinen blassen Dunst.
Ich sach schon mal "Danke".
Ein Anschubser wäre nett.
Grüße,
Fritz