My Computer oder Dieser PC
01.05.2017 18:59:40
Peter
Function MyComputer() As Variant 'gibt den Wert "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" aus
Dim objShell As Object, objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(&H11&)
MyComputer = objFolder.self.Path
Set objShell = Nothing
Set objFolder = Nothing
End Function
Wenn ich den Wert aus Funktion "MyComputer" in den Win-Explorer eingebe geht er auf "Dieser PC", wenn ich aber dies mit einem Makro mache siehe X_MyComputer() erhalte ich eine Fehlermeldung.
Sub X_MyComputer()
Dim sTmp$
sTmp = MyComputer
ChDrive sTmp 'Fehlermeldung
ChDir sTmp'Fehlermeldung
Stop
End Sub
Danke für Eure Hilfe
Pepi