rinomina con incremento ogni volta che trovi lo stesso file

[Tool]

ciao,
su HDD ho il seguente file:

C:\database\prova.txt

tramite macro pesco un valore variabile nel file e con quel valore rinomino il file

Name "C:\database\prova.txt" As "C:\database\" & Sn & "_TEST.txt" dove Sn è la variabile, fin qui ci siamo, ora però vorrei che ogni qualvolta mi si ripresenta la stessa variabile nel file, tramite un contatore o altro, rinominare il file come

C:\database\" & Sn & "_TEST 2.txt
C:\database\" & Sn & "_TEST 3.txt
C:\database\" & Sn & "_TEST 4.txt

e così via.
grazie
ciao.

[ricky53]

Ciao,
quando scorri il file controlli che il dato_letto (secondo le tue regole: posizione nella stringa letta) abbia lo stesso valore della variabile ed incrementi un contatore e poi utilizzi questo contatore per creare il nome del file da salvare:

prima della open inizializzi ad 1 il contatore

if tua_variabile = dato_letto (in base alla posizione e lunghezza nella stringa letta) then contatore = contatore + 1
C:\database\" & Sn & "_TEST" & contatore & ".txt

Ciao da Ricky53

[Anthony47]

Vedi la risposta di Ricky sopra; se il problema si puo' presentare perche' lo stesso nome file e' gia' presente su disco, per una operazione fatta in precedenza, allora dicci anche quale versione di excel usi.

Ciao.

[Tool]

Ciao,
si il problema si ripresenta causa stesso file già presente su disco, la versione di excel che utilizzo è la 2000.

ciao
grazie.

[Anthony47]

Allora puoi usare una sequenza come la seguente per variare il nome del file nel caso che esista gia' su disco:

Codice: Seleziona tutto

NuovoNome= "C:\database\" & Sn & "_TEST.txt"
Suff=0
VerEx:
If Len(Dir(NuovoNome)) > 0 Then       
  Suff=Suff+1                                       '<<<Il file esiste gia'
  NuovoNome= "C:\database\" & Sn & "_TEST" & "-" & Suff & ".txt"
  Goto VerEx
End if
Name "C:\database\prova.txt" As NuovoNome


Ciao, fai sapere se ok cosi'.

[Tool]

PERFETTO.

Grazie1000
Ciao.