[PhoeniX]

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

Код:

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")

Код:

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