Office: Const Variable variabel machen

Hallo,

der Folder muss entweder eine Konstante oder eine Variable von Type Variant sein.

Code:

 

Das heisst also, dass es funktionierte, weil ich keine Dimensionierung mehr auf der Variablen hatte und diese dann automatisch zu Variant wird?

Gruß
Dhub

 

Hallo,

ja genau.

 

Hallo Dhup,

das ist das Problem, wenn man einen Codeschnipsel kopiert und verwendet, ohne direkt verstanden zu haben, was da eigentlich passiert bzw. gemacht wird.

>>weil ich keine Dimensionierung mehr auf der Variablen hatte

Man hat keine Dimensionierung auf einer Variablen haben, sondern gibt bei der Dimensionierung einen Datentyp an oder nicht, wobei der Default für VBA dann eben Variant ist. Und: du hast offensichtlich "Option Explicit" wieder entfernt, was keine gute Idee ist.

Das eigentliche Besondere an dieser Methode ist aber, daß ausnahmsweise der Parameter vDir in .Namespace(vDir) nur eine Variable vom Typ Variant akzeptiert und keine implizite Typkonvertierung von String nach Variant durchgeführt wird. Ein String muß also ausnahmsweise vorher explizit konvertiert werden, was für Einsteiger nicht offensichtlich ist:
Code:

Weil keine Fehlermeldung generiert wird, wenn auf den Namespace nicht zugegriffen werden kann, sollte der Rückgabewert der Namespace-Methode auf jeden Fall geprüft werden. Damit sieht das Grundgerüst für die Verwendung dann so aus:
Code:

Gruß Ulrich

PS:
würdest du bitte im anderen Forum mitteilen, daß du eine Lösung gefunden hast?

 

Ohne Redundanz und schneller:

PHP:

         Sub M_snb()
c00 = "G:OF"

With CreateObject("Shell.Application").Namespace(c00)
ReDim sp(.items.Count, 100)

For j = 0 To UBound(sp) - 1
sp(j, 0) = .items.Item(j + 1).Name

For jj = 2 To 100
sp(j, jj) = .GetDetailsOf(.items.Item(j + 1), jj)
Next
Next
End With

Sheets(1).Cells(1).Resize(ubound(sp), ubound(sp,2)) = sp
End Sub