Byt namn på en fil på hårddisken

Fso:

Om du har ett file-object så kan du ändra egenskapen name.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vaprofsoname.asp

Bra sida. Brukar söka på devguru.com och hittade inte så mycket där :h

Hur som helst, jag får det inte att fungera i praktiken. Är det någon som har ett exempel där "object.Name [= newname]" används?

För mig fungerar det med en viss modifikationa v deras exempelkod:

<%
Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified  
    'MsgBox s, 0, "File Access Info"

	response.write s & "<br>" & o

	f.Name = "nyttnamn.txt"

End Sub

call ShowFileAccessInfo(server.mappath("testfil.txt"))
%>

Oftast är det väl rättighetsproblem som gör att manite får döpa om eller radera filer. Kanske kan vara något att kika på.
Även Norton antivirus är en orsak ibland.

Microsoft VBScript runtime error '800a0046'

Permission denied

/vb_versionen/edit_files.asp, line 136

Jag blir toookig. Suck. IIS usern har full control på filnivå. Jag tycker att jag har lagt till så mycket rättigheter det bara går. Har någon några förslag.... please...

Nu fungerar det... hoppas bara att jag kommer ihåg allt jag har öppnat upp nu när jag har testat. Min server är nog inte världens säkraste för tillfället ....

Tack för hjälpen solbulle!

e' lugnt.

Njaa.... Jag fick ditt exempel att fungera. Jag fick även mitt copy/rename variant att fungera. Men försöker jag göra om min copyvariant till en rename så får jag fel. Vad är det jag inte förstår??? ha ha... hmm

dim filesys, demofile
set filesys = CreateObject ("Scripting.FileSystemObject")
selectedFileAndPath = strPath &"\" &varFileName 
set demofile = filesys.GetFile(selectedFileAndPath)
demofile.Name(NewFileName)

**Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'name'

/vb_versionen/edit_files.asp, line 116**

Sorry, jag har suttit här för länge nu ;)

Hittade felet. Syntaxfel... demofile.Name = NewFileName ska det ju vara.