Ordnernamen anzeigen lassen

[black-dog]

WICHTIG: Ordnernamen anzeigen lassen

wie kann ich die ordnernamen anzeigen lassen? ich weiss wie ich die bildernamen rauslesen kann. das mache ich folgender massen:

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set objFldr = fso.GetFolder(server.mappath("/thinkquest/website/interaktiv/bildergalerie/galerie/bilder"))
Set objFileColl = objFldr.Files

For Each file in objFileColl

Response.Write("123")

Next

Set objFldr = Nothing
Set objFileColl = Nothing
Set fso = nothing
%>

wenn ich im ordner (z.b. gif oder jpg) speichere zeigts diese an, ordner werden ignoriert.

 

[Texaner]

Immer die Gleichen

Also ein kleines Beispiel:

TESTPFAD = "C:\intetpub\wwwroot\testordner"
SET FolderObjekt = CreateObject("Scripting.FileSystemObject")
SET ListFolder = FolderObjekt.GetFolder(TESTPFAD)
'Jetzt lassen wir uns die Ordnernamen im testordner anzeigen
FOR EACH FolderName IN ListFolder.SubFolders
Response.write "<br>"& FolderName
NEXT
'und nun die Dateien
FOR EACH FileName IN ListFolder.Files
Response.write "<br>"& FileName
NEXT

Ich glaube so bekommst du aber den kompletten Pfad der Dateien
angezeigt. Einfach mit RIGHT und INSTRREV ein wenig formatieren.

War es das was du wolltest??

Gruß

Jens

 

[black-dog]

yeah thats it!

thx - nun werd ich nur noch den ausgegebenen wert etwas formatieren müssen .