|
Hallo,
ich habe diverse Schriften als eot Files zum
einbinden, nun wollte ich mir die orginal Schriftnamen aus den oet's auslesen,
nur das will nicht so recht klappen ....
hier der code:
<%
path = "bfont"
path = server.mappath("./" & path) Set FolderObject = CreateObject("Scripting.FileSystemObject") Set ListFolder = FolderObject.GetFolder(path) For Each FileName IN
ListFolder.Files
endung = SPLIT(FileName.name, ".") neupath = path & "\" & FileName.name Set InStream= FolderObject.OpenTextFile (neupath, 1, False, False) strName = Instream.ReadLine Instream.close Set Instream=Nothing response.write FileName.name & "<br>" & strName & "<br>-------------------------<BR>" next %>
gruss jafa
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
|
