Toon posts:

[vbscript/ASP] bestanden kopieëren vanaf een netwerk

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb een vbscript gemaakt die op een bepaald tijdstip tekstbestanden leest en vervolgens de gegevens uit de tekstbestanden opslaat in een database.

Nu is het zo dat deze bestanden op een andere netwerk-pad staan.
Ik heb de code gestest en gemaakt met bestanden die ik handmatig gekopieërd heb vanaf het andere netwerk-pad, nu wil ik dat het script automatisch bij dit pad kan komen.
code:
1
2
3
4
5
6
7
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If 
  fs.FileExists(Server.MapPath("/data/naam.txt))=true 
Then
  Set f=fs.OpenTextFile(Server.MapPath("/data/naam.txt), 1)
  ..de code voor het eruit halen..
end if

Ik heb al gegoogeld maar zonder echt een resultaat.
Ik heb ook al geprobeerd Server.MapPath("/data/naam.txt) te vervangen door de naam van de computer, maar dat werkt niet.

Iemand een idee :? Alvast bedankt!

  • CaptBiele
  • Registratie: Juni 2002
  • Laatst online: 23-05 16:11

CaptBiele

No Worries!

Server.Mappath zal je webroot als fileroot instellen. (dus onder c:\inetpub)
Kun je niet proberen om het absolute pad in te vullen?
Dus iets als: FileExists("//computer2/etc/")

Verwijderd

Topicstarter
ik heb dit geprobeerd:

FileExists("\\bxp355.knmi.nl\xhrver2004010203")

maar dan kan hij het bestand niet vinden, dat werkt dus niet..terwijl het pad wel juist is, als het intyp in de verkenner bijvoorbeeld opend hij het bestand gewoon.

edit:

Zelfs met FileExists("//bxp355.knmi.nl/xhrver2004010203") werkt het ook niet!

[ Voor 19% gewijzigd door Verwijderd op 22-06-2004 14:50 ]


Verwijderd

Topicstarter
ik heb net er wat mee gestoeid..

nu lukt het me wel om te kijken met de code welke mappen er in de bepaalde mappen op het netwerk-pad staan met de code:
code:
1
2
3
4
5
6
7
8
9
strFolder = "\\bxp355.knmi.nl\data"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fldr = fs.GetFolder(strFolder)
Set subfldrs = fldr.SubFolders
For Each fldr In subfldrs
  strResult = strResult & fldr.Name
  strResult = strResult & vbCrLf
Next
Response.Write "<pre>" & strResult & "</pre>"


Aan de rechten of iets dergelijks kan het dus niet liggen, probeer ik zoiets dergelijks om het bestand te openen dan lukt het niet meer.

  • CaptBiele
  • Registratie: Juni 2002
  • Laatst online: 23-05 16:11

CaptBiele

No Worries!

Je moet ook wel een extensie aangeven... dat zie ik niet. Dan herkent asp het ook niet.

  • TeeDee
  • Registratie: Februari 2001
  • Laatst online: 23:36

TeeDee

CQB 241

Puntje: Ik vind het levensgevaarlijk als je zomaar een UNC pad aan kan spreken zonder in te loggen of enig andere vorm van security.
Zou je kunnen posten hoe je de rechten hebt gezet?

Heart..pumps blood.Has nothing to do with emotion! Bored

Pagina: 1