split funktion

[Karin]

Hallo

Versuchs doch mal so:
(natürlich musst du bei 'getfolder' noch den Pfad angeben.)

---------------
Dim FSO, FldrObj, FileObj, strTestIP, x
dim arrTestIP

Set FSO = CreateObject("Scripting.FileSystemObject")
Set FldrObj = FSO.GetFolder("c:\temp")

For Each FileObj In FldrObj.Files
 strTestIP = FileObj.name
 arrTestIP = Split(strTestIP, ".", 2, 0)

For x = 0 to UBound(arrTestIP)
  response.Write arrTestIP(x) & "<br>"
  response.flush
 Next

Next
-----------------

Das sollte gehen.

Gruss
Karin