[PhoeniX]

Код по своей сути верный (ИМХО, с асп не сильно дружу, но что-то понимаю). Может, стоит с относительными путями попробовать? Или косые черты он неправильно понимает... попробуй эти варианты:

Код:

1 2 3 4 5

Dim fso, f, fc, fld, s Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.GetFolder(”C:/Inetpub/wwwroot/pr/”) Set fc = f.SubFolders fc.Add ("t")

Код:

1 2 3 4 5

<div align="left">Dim fso, f, fc, fld, s Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.GetFolder(”./”) Set fc = f.SubFolders fc.Add ("t")</div>