Jag har justerat ett nedladdat ListFolder program och undrar
är det något sätt att dela upp FileItem.ParentFolder ytterliggare
så att jag får
D:\Ritningar 2002
Rostock
\Dierkow
Lorenzstr 7702


var för sig ?

If FileItem.DateLastModified >= Dat Then
Cells(r, 1).Formula = FileItem.ParentFolder

and so on

D:\Ritningar 2002\Rostock\Dierkow\Lorenzstr 7702

Bengt Ekholm

Är väl bara at använda Split?
<code>
Dim sTemp as string
Dim sParts() as string
Dim Index As Long
sTemp = "D:\Ritningar 2002\Rostock\Dierkow\Lorenzstr 7702"
sParts = Split(sTemp, "\")

For Index = 0 To UBound(sParts)
Debug.Print sParts(Index)
Next
</code>

Rubrik:Sv: Filhantering
2002-10-07 23:31:01 - Andreas Hillqvist

Tack så mycket Andreas det hjälpte mig mycket eftersom
jag nu inte behöver tänka på vilka ritningar jag reviderat
eller startat upp.

Med vänlig hälsning

Bengt Ekholm