varför funkar det inte..

15 svar · 341 visningar · startad av sin_adec 18 juni 2002

sin_adecMedlem sedan apr. 2002272 inlägg

Frågan18 juni 2002 17:35#1

Varför funkar det inte...

<% Dim Obj
Set Obj = CreateObject("Scripting.FileSystemObject")

If Obj.FolderExists("C:\mina dokument\mina webbplatser\test2\move") = False Then
Obj.CreateFolder("C\mina dokument\mina webbplatser\test2\move")

end if 

%>

<%
Set copy = CreateObject("Scripting.FileSystemObject")
Copy.CopyFile (request.form("fil")), ("C:\mina dokument\mina webbplatser\test2\move")
%>

får följande fel meddelande...

Körningsfel i Microsoft VBScript fel '800a004c' 

Det går inte att hitta angiven sökväg. 

/test2/copy.asp, rad 5

sin_adecMedlem sedan apr. 2002272 inlägg

18 juni 2002 17:36#2

Har fixat det nu... men nu får jag följande fel meddelande:

Körningsfel i Microsoft VBScript fel '800a0005' 

Ogiltigt proceduranrop eller argument. 

/test2/copy.asp, rad 13

LarsGMedlem sedan dec. 200012 464 inlägg

18 juni 2002 17:57#3

Copy.CopyFile request.form("fil"), "C:\mina dokument\mina webbplatser\test2\move"

@ndersMedlem sedan juni 200032 967 inlägg

18 juni 2002 17:57#4

Rad 13?

sin_adecMedlem sedan apr. 2002272 inlägg

18 juni 2002 18:01#5

Copy.CopyFile request.form("fil"), "C:\mina dokument\mina webbplatser\test2\move"

@ndersMedlem sedan juni 200032 967 inlägg

18 juni 2002 18:02#6

LarsGs förslag fungerade inte?

sin_adecMedlem sedan apr. 2002272 inlägg

18 juni 2002 18:03#7

Nej, det fungerade inte... jag vet inte vad jag ska göra

LarsGMedlem sedan dec. 200012 464 inlägg

18 juni 2002 18:06#8

Vad finns i request.form("fil")? Är det ett giltigt filnamn?

sin_adecMedlem sedan apr. 2002272 inlägg

18 juni 2002 18:09#9

Japp..

C:\Mina dokument\orely.jpg

LarsGMedlem sedan dec. 200012 464 inlägg

18 juni 2002 18:21#10

Får du samma fel, dvs

Ogiltigt proceduranrop eller argument.

Varför skapar du 2 st FSO-objekt? Kan du inte använda Obj i båda tillfällena?

sin_adecMedlem sedan apr. 2002272 inlägg

18 juni 2002 18:24#11

funkar inte.. får då ett helt annat fel meddelande..
att Object Copy krävs

pirroMedlem sedan aug. 2001226 inlägg

18 juni 2002 19:57#12

försökte liknande grej förrut... Vet inte hur det kan fungera men iaf:

<% Dim ObjFSP
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

If ObjFSO.FolderExists("C:\mina dokument\mina webbplatser\test2\move") = False Then
ObjFSO.CreateFolder("C\mina dokument\mina webbplatser\test2\move")

end if 

Set fil = ObjFSO.GetFile(request.form("fil"))
ObjFSO.CopyFile ("C:\mina dokument\mina webbplatser\test2\move",file_name)
%>

pirroMedlem sedan aug. 2001226 inlägg

18 juni 2002 20:00#13

sen leeker man runt å upptäcker att den bara behövs denna kod:
*ler*

 
<% Dim ObjFSP 
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 

If ObjFSO.FolderExists("C:\mina dokument\mina webbplatser\test2\move") = False Then 
ObjFSO.CreateFolder("C\mina dokument\mina webbplatser\test2\move") 

end if 

Set fil = ObjFSO.GetFile(request.form("fil")) 
ObjFSO.CopyFile ("C:\mina dokument\mina webbplatser\test2\move\") 
%>

hahahahahaha garavar mej till golvet... :D

sin_adecMedlem sedan apr. 2002272 inlägg

19 juni 2002 08:42#14

Funkar

Funkar fortfarande inte...

pirroMedlem sedan aug. 2001226 inlägg

19 juni 2002 14:09#15

fel med?

pirroMedlem sedan aug. 2001226 inlägg

19 juni 2002 14:12#16

denna borde väl fungera:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	if FSO.FolderExists("C:\mina dokument\mina webbplatser\test2\move\")) = false then
		FSO.CreateFolder("C:\mina dokument\mina webbplatser\test2\move\")
	end if
Set fil = FSO.GetFile(request.form("fil")) 
FSO.CopyFile ("C:\mina dokument\mina webbplatser\test2\move\") 
	%>