Server.MapPath

Hmm, borde inte vara svårare än:

Server.MapPath("\Prisfiler\Ahlsell\" & File.FileName)

Funkish?

mvh

Jag tyckte inte heller att det skulle vara svårare än så...

Men...

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/articles/administration/addAhlsellArticle.asp, rad 77

Rad 77:

set objFile = objFSO.OpenTextFile (Server.MapPath("\Prisfiler\Ahlsell\" & file.FileName))

Är jag blind eller bara knäpp...

Mvh
henrik

Du får nog visa mer kod. På felmeddelandet verkar det som objektet file, som du försöker hämta filnamnet ur, inte finns.

mvh

det konstiga är att det fungerar om jag hårdkodar in filnamnet....

Mvh

Japp, men då använder du ju inte objektet File på den raden.
Var skapar du det objektet? Kod, bitte

ahhh...

'Nollställa räknare
intCount=0
iEnumberCount = 0
	
'  Object creation
'  ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
mySmartUpload.Upload

'  Select each file
'  ****************
For each file In mySmartUpload.Files
'  Only if the file exist
'  **********************
  If not file.IsMissing Then
  '  Save the files with his original names in a virtual path of the web server
  '  **************************************************************************
	 file.SaveAs("/Prisfiler/Ahlsell/" & file.FileName)
	 ' sample with a physical path 
	 ' file.SaveAs("c:\temp\" & file.FileName)

  '  Display the properties of the current file
  '  ******************************************
	 Response.Write("Name = " & file.Name & "<BR>")
	 Response.Write("Size = " & file.Size & "<BR>")
	 Response.Write("FileName = " & file.FileName & "<BR>")
	 Response.Write("FileExt = " & file.FileExt & "<BR>")
	 Response.Write("FilePathName = " & file.FilePathName & "<BR>")
	 Response.Write("ContentType = " & file.ContentType & "<BR>")
	 Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
	 Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
	 Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
	 intCount = intCount + 1
  Else
  Response.Write "Du har inte valt någon fil att ladda upp!"	 
  End If
Next

'  Display the number of files which could be uploaded
'  ***************************************************
Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
Response.Write(intCount & " file(s) uploaded.<BR>")

det är från filuppladdningskoden....

Mvh
henrik

Ok, inte för att jag ser hur den ena koden hänger ihop med den andra, men jag hade absolut satt en lille variabel i uppladdningskoden:

sFooFile = file.FileName

Använd sedan sFooFile i server.mappath-koden istället för filobjektet.

mvh

Ahhhh... jag ska testa det....

Så fick det bli:

sFileName = file.FileName
...
set objFile = objFSO.OpenTextFile (Server.MapPath("\Prisfiler\" & sFileName))

Fick även stuva om lite i koden....

Nu funkar det i alla fal!!

Mvh
Henrik