Just nu i M3-nätverket
Gå till innehåll

ändra filnamn rekursivt


_freddan_

Rekommendera Poster

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_]

Länk till kommentar
Dela på andra webbplatser

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]

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...