AAA Cercasi programma

[usu]

Sto cercando un programma per windows che avendo una cartella con 500 files in ordine numerico mi permetta di cancellare un file si ed un file no, ad esempio i files sono:

1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
6.jpg

Il programma dovrebbe cancellare i files col numero pari, conoscete qualcosa che mi permette di farlo?

Grazie

[walM]

Be', non so se esiste, ma potresti farlo...

[usu]

Non so programmare.

[NikyAT1]

Te lo faccio io se sei più preciso con le regole. Tanto ci vuole 1 millisecondo.

[walM]

cartella = inputbox ("Inserisci la cartella")
Set fso = CreateObject("Scripting.FileSystemObject")
Set cart = fso.GetFolder(cartella) 
Set file =cart.Files 
For Each f1 in file
nomefile = strreverse(f1.name)
nomefilemut = Mid(nomefile, 5)
nomefileGiusto = strreverse(nomefilemut)
If nomefileGiusto mod 2 = 0 Then 
fso.DeleteFile(cartella & "\" & f1.name) 
End If
Next 
 
Set fso =Nothing
Set cart = Nothing
Set file =Nothing

Mettilo in un file .vbs e avvialo con un doppio click.
Elimina tutti i file che hanno come nome un numero pari. ( l'estensione deve essere di tre lettere, quindi .jpg, .gif ecc. )
Inserisci la cartella senza lo slash finale.



Questo è invece per eliminare i file con numero dispari :

cartella = inputbox ("Inserisci la cartella")
Set fso = CreateObject("Scripting.FileSystemObject")
Set cart = fso.GetFolder(cartella) 
Set file =cart.Files 
For Each f1 in file
nomefile = strreverse(f1.name)
nomefilemut = Mid(nomefile, 5)
nomefileGiusto = strreverse(nomefilemut)
If nomefileGiusto mod 2 <> 0 Then 
fso.DeleteFile(cartella & "\" & f1.name) 
End If
Next 
 
Set fso =Nothing
Set cart = Nothing
Set file =Nothing

[usu]

Funzia perfettamente grazie mille!
Grazie anche a Niky che si era offerto

[walM]

Di nulla .

[Frankye76]

uh?
ridimensioni la cartella in modo che ti si incolonnano su 2 colonne
selezioni la colonna di destra e la cancelli