Как в пределах ЛВС (TCP/IP) с помощью ASP читать сетевые папки и перемещать файлы между папками?

@VladZ · Регистрация: 16.07.2007

Author24 — интернет-сервис помощи студентам

Проблема: как в пределах ЛВС (TCP/IP) с помощью ASP читать сетевые папки и перемещать файлы между папками?
Влад.
Заранее благодарен.

@t1k · 16.07.2007, 14:54

FileSystemObject не подходит?

Set oFSO=CreateObject('Scripting.FileSystemObject')
Set oFile=oFSO.OpenTextFile('\Computer1Catalog1File1.ext')
MsgBox oFile.ReadAll

@VladZ · 16.07.2007, 14:59 **[ТС]**

А FSO не работает с сетевыми ресурсами, тока с локальным диском ... вот ведь в чем штука!

@t1k · 16.07.2007, 15:02

Ну у меня лично читает. Смотри хотя бы пример.

@VladZ · 16.07.2007, 15:09 **[ТС]**

Ща гляну пример ...
а если я хочу сначала прочитать содержимое сетевой папки?

@t1k · 16.07.2007, 15:15

А если ты хочешь сначала прочитать содержимое локальной папки на диске? :-)

Вот и тут тоже самое. Т.е. oFSO.GetFolder

@VladZ · 16.07.2007, 15:20 **[ТС]**

не, не локальной, а СЕТЕВОЙ папки! именно на одном из компов ЛВС ... прочитать, а потом оперировать с ентими файлами
:-))))))

@t1k · 16.07.2007, 15:27

Получить список файлов СеТеВоЙ папке //Computer/folder

Set oFSO=CreateObject('Scripting.FileSystemObject')
Set oFolder=oFSO.GetFolder('\ComputerFolder ')
For Each oFile In oFolder.Files
MsgBox oFile.Name
Next
For Each oFolders In oFolder.Folder
MsgBox oFolders.Name
Next

@t1k · 16.07.2007, 15:43

For Each oFolder In oFolder.SubFolders
MsgBox oFolder.Name
Next

@VladZ · 16.07.2007, 15:44 **[ТС]**

пишет:
Error Type:
Microsoft VBScript runtime (0x800A004C)
Path not found
хоть я 100 раз проверил существование ресурса на указанном компе ... :-(

@VladZ · 16.07.2007, 15:52 **[ТС]**

Set oFSO1=CreateObject('Scripting.FileSystemObject')
Set oFolder=oFSO1.GetFolder('\bm4Ibs ')

For Each oFile In oFolder.Files
MsgBox oFile.Name
Next

@t1k · 16.07.2007, 16:02

Тогда не знаю.

Лично у меня в сетке установлены TCP/IP, Client for Microsoft Networks, File And Printer Sharing For Microsoft Networks. В far'e могу зайти в какой-нибудь каталог. Ну и файл .vbs с примером все вроде выводит.

Может у тебя у ресурса пароль стоит?

@VladZ · 16.07.2007, 16:09 **[ТС]**

я понял! на серваке не стоит доступ к файлам и принтерам ... точно!

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 15:52 [ТС]	11
	Set oFSO1=CreateObject('Scripting.FileSystemObject') Set oFolder=oFSO1.GetFolder('\bm4Ibs ') For Each oFile In oFolder.Files MsgBox oFile.Name Next 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 16:02	12
	Тогда не знаю. Лично у меня в сетке установлены TCP/IP, Client for Microsoft Networks, File And Printer Sharing For Microsoft Networks. В far'e могу зайти в какой-нибудь каталог. Ну и файл .vbs с примером все вроде выводит. Может у тебя у ресурса пароль стоит? 0

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 16:09 [ТС]	13
	я понял! на серваке не стоит доступ к файлам и принтерам ... точно! 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 14:54	2
	FileSystemObject не подходит? Set oFSO=CreateObject('Scripting.FileSystemObject') Set oFile=oFSO.OpenTextFile('\Computer1Catalog1File1.ext') MsgBox oFile.ReadAll 0

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 14:59 [ТС]	3
	А FSO не работает с сетевыми ресурсами, тока с локальным диском ... вот ведь в чем штука! 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 15:02	4
	Ну у меня лично читает. Смотри хотя бы пример. 0

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 15:09 [ТС]	5
	Ща гляну пример ... а если я хочу сначала прочитать содержимое сетевой папки? 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 15:15	6
	А если ты хочешь сначала прочитать содержимое локальной папки на диске? :-) Вот и тут тоже самое. Т.е. oFSO.GetFolder 0

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 15:20 [ТС]	7
	не, не локальной, а СЕТЕВОЙ папки! именно на одном из компов ЛВС ... прочитать, а потом оперировать с ентими файлами :-)))))) 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 15:27	8
	Получить список файлов СеТеВоЙ папке //Computer/folder Set oFSO=CreateObject('Scripting.FileSystemObject') Set oFolder=oFSO.GetFolder('\ComputerFolder ') For Each oFile In oFolder.Files MsgBox oFile.Name Next For Each oFolders In oFolder.Folder MsgBox oFolders.Name Next 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	16.07.2007, 15:43	9
	For Each oFolder In oFolder.SubFolders MsgBox oFolder.Name Next 0

@VladZ 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 8
	16.07.2007, 15:44 [ТС]	10
	пишет: Error Type: Microsoft VBScript runtime (0x800A004C) Path not found хоть я 100 раз проверил существование ресурса на указанном компе ... :-( 0