Byta namn på fil med FSO

3 svar · 341 visningar · startad av webbSAJTEN 17 maj 2006

webbSAJTENMedlem sedan jan. 2002992 inlägg

Trådstart17 maj 2006 21:02#1

Tjenare!
Med denna kod ska man kunna byta namn på en fil med FSO.
Hittade snutten på pellesoft.se.

<%
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.MoveFile "d:\test.txt", "d:\nytest.txt"
%>

Bytte ut lite saker och fått koden

Set fso = Server.CreateObject("Scripting.FileSystemObject")
		   fso.MoveFile "D:\hsadmin\jennes\r60photo.com\"&file&"", "D:\hsadmin\jennes\r60photo.com\blabla."&FCONT&""

FCONT är typ på filen och file är namnet på filen.
Just nu får jag felmesset att den inte hittar filen.
Finns det något sätt att kolla den rätta sökvägen?

@ndersMedlem sedan juni 200032 967 inlägg

17 maj 2006 21:07#2

Server.mappath()?

I övrigt: http://www.webforum.nu/showthread.php?t=142490

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 maj 2006 21:13#3

Jag hittade en annan kod som också ska fungera som verkade lite enklare..

Set fileObject = fso.GetFile(Server.MapPath(file)) 
fileObject.Name = "blabla."&FCONT&""

Den hittar fortfarande inte filen..

Jag ska läsa genom de på sidan

webbSAJTENMedlem sedan jan. 2002992 inlägg

17 maj 2006 21:35#4

Ojojoj va ja är bäst =)

fil = "bilder\"&file
andelse = Right((file), 3)
		   
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath(fil)) 
fileObject.Name = "blabla."&andelse

Nu fungerar det prima faktiskt =)