Форум по Delphi программированию

 



Вернуться   Форум по Delphi программированию > Общие вопросы > WEB-Программирование
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.04.2009, 20:23
dubin dubin вне форума
Прохожий
 
Регистрация: 05.04.2009
Сообщения: 1
Репутация: 10
По умолчанию Создание папки средствами ASP

Пишу на просто ASP (требуется в институте, так что сменить язык не могу). Использую для создание папки код:

Код:
	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")
После выполнения кода происходит ошибка. Самое интересное, то что если использовать другой пусть (отличный от корня приложения) скажем Set f = fso.GetFolder(“C:\”), то папка создается. То есть получается, что как бы защита от записи инвертирована. В чем проблема, в моем коде или настройках сервера, или же в самом способе создания папки (если в нем то дайте правильный вариант)
Ответить с цитированием
  #2  
Старый 06.04.2009, 00:50
Аватар для Ferra
Ferra Ferra вне форума
Местный
 
Регистрация: 12.03.2006
Адрес: Минск
Сообщения: 527
Репутация: 1336
По умолчанию

Слушай, я с асп слабо дружу, но по логике вроде верно всё.. Кстати Классы из system.io нельзя использовать?
__________________
Нет повести печальнее на свете, чем повесть о заклиневшем Resete.
Ответить с цитированием
  #3  
Старый 06.04.2009, 14:46
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,238
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Код по своей сути верный (ИМХО, с асп не сильно дружу, но что-то понимаю). Может, стоит с относительными путями попробовать? Или косые черты он неправильно понимает... попробуй эти варианты:
Код:
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")
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:38.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2020

ВКонтакте   Facebook   Twitter