Just nu i M3-nätverket
Jump to content

ändra filnamn rekursivt


_freddan_

Recommended Posts

tja.

 

ska ladda upp bilder på en server med hjälp av aspSmartUpload. men om det redan finns en fil med det namnet så ska den döpas om till "_" + filnamnet. detta vill jag göra genom att anropa en funktion rekursivt (alltså så att det inte finns några begränsningar, efter test.gif blir det _test.gif och sen __test.gif osv). men jag är en färsking på asp/vbscript så jag hoppas nån kan hjälpa mig.

 

så här ser den del av koden ut:

 

 

** här anropas funktionen, Upload.Files("bild").FileName är det usprungliga namnet på filen **

 

fileName = checkFileName(Upload.Files("bild").FileName)

Upload.Files("bild").SaveAs(uploadPath & fileName)

 

 

** och så här ser funktionen ut **

function checkFileName(fname)

if objFSO.FileExists(uploadPath & fname) = false then

checkFileName = fname

else

checkFileName("_" & fname)

end if

end function

 

 

jag får inte funktionen att returnera det jag vill. den returenerar ingenting istället för att lägga till ett "_".

 

nån som kan?

 

 

 

[inlägget ändrat 2004-11-19 17:22:46 av _freddan_]

Link to comment
Share on other sites

Du måste bubbla upp resultaten i rekursionen:

 

[color="#0000ff"]Function[/color] checkFileName(fname)
[color="#0000ff"]If[/color] objFSO.FileExists(uploadPath & fname) = [color="#0000ff"]False[/color] [color="#0000ff"]Then[/color]
checkFileName = fname
[color="#0000ff"]Else[/color] 
checkFileName =checkFileName([GRÅ]"_"[/GRÅ] & fname)
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...