Cambiare nome file

[syndr0me]

Tramite un software carico delle immagini in una cartella sul server,... vorrei realizzare un file in asp per cambiare il nome dei file caricati (che io non conosco, tranne se non entro con l'ftp sul server).
I file hanno tutti estensione .jpg.

Esempio:

Sulla cartella "public/immagini" del mio sito ci sono le seguenti immagini con nome file:
1. pippo.jpg
2. landscape.jpg
3. wallpaper.jpg

Tramite questo file ASP io vorrei modificare i file in questo modo:

1. 01.jpg
2. 02.jpg
3. 03.jpg

Mi dicevano che è un operazione abbastanza semplice, ma non so proprio da dove cominciare.

Qualcuno può darmi una mano??

[Mems]

L'operazione non è complicata, ma sorge un problema, ovvero, una cosa da chiarire.
Se nella cartella ci stanno già delle JPG con nomi composti da numero.jpg allora che fai?

[syndr0me]

Scusami Mems, ma non ho capito cosa vuoi dire!

In teoria (ma forse dico una cacchiata) il file ASP non deve tener conto dei nomi file esistenti, bensì prendere tutti i file *.jpg e rinominarli come 01.jpg, 02.jgp e così via fino alle fine dei file.

In pratica se trova 4 file con nomi o numeri diversi,... in ordine alfabetico li interroga e rinomina in modo crescente come dicevo prima.

[Mems]

Quindi, ad ogni chiamata di pagina, tutti i file, vecchi (i quali ad esempio sono già rinominati in 01.jpg, 02, jpg, etc.) e nuovi vanno in blocco rinominati?
E se per caso mentre sta salvando un file con il nome nuovo 08.jpg si verifica che il file 08.jpg è già esistente, tu cosa fai?

[Mems]

Ho fatto una prova in locale e l'errore non si verifica...

<%
i = 1
set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("\public\images\")).files

for each img in folder
if i < 9 then 
suff = "0" & i
else
suff = i
end if
set file = fso.getFile(img)
file.name = suff & ".jpg"
set file = nothing
i = i + 1
next

set folder = nothing
set fso = nothing
%>

[Mems]

Aspetta, l'errore si verifica. Mi dice file esistente... ora correggo.

[Mems]

Ecco qua.
Dovrebbe essere ok.

<%
i = 1
set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("\public\images\")).files

for each img in folder
if i < 9 then 
suff = "0" & i
else
suff = i
end if
set file = fso.getFile(img)
if lCase(right(file.name,3)) = "jpg" then
newImg = suff & ".jpg"
if not fso.fileExists(server.mapPath("\public\images\" & newImg)) then
file.name = suff & ".jpg"
end if
set file = nothing
i = i + 1
end if
next

set folder = nothing
set fso = nothing
%>

[Daniele80]

Originariamente inviato da Mems
Ecco qua.
Dovrebbe essere ok.

<%
i = 1
set fso = server.createObject("scripting.fileSystemObject")
set folder = fso.getFolder(server.mapPath("\public\images\")).files

for each img in folder
if i < 9 then 
suff = "0" & i
else
suff = i
end if
set file = fso.getFile(img)
if lCase(right(file.name,3)) = "jpg" then
newImg = suff & ".jpg"
if not fso.fileExists(server.mapPath("\public\images\" & newImg)) then
file.name = suff & ".jpg"
end if
set file = nothing
i = i + 1
end if
next

set folder = nothing
set fso = nothing
%>

è tanto che non bazzico il forum di ASP, però se non ricordo male tu sei il mitico O*****JS, che fine ha fatto il sito?

[Mems]

Originariamente inviato da Daniele80
è tanto che non bazzico il forum di ASP, però se non ricordo male tu sei il mitico O*****JS, che fine ha fatto il sito?

Morto da più di un anno.

[syndr0me]

L'ho provato!!
Ma sembra non funzionare.

1. ho copiato tutto il codice in un blocco note.
2. ho salvato il file come "cambia_nomi.asp".
3. ho creato sul server, nella cartella public una sotto cartella images.
4. ho pubblicato nella cartella "images" 4 files con estensione .jpg.
5. ho pubblicato il file .asp nella _root del sito
6. ho richiamato da browser il file .asp e dopo un breve caricamento,... mi da operazione completata, senza nessun errore.

Cmq, se entro via ftp sul server x controllare i file .jpg pubblicati in "/public/images" i nomi dei file risultano quelli originali.

ciaoooo