Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Copia file
Forum - Visual Basic 6 - Copia file

Avatar
barilla (Normal User)
Newbie


Messaggi: 8
Iscritto: 13/05/2007

Segnala al moderatore
Postato alle 17:49
Giovedì, 11/05/2017
Salve,
avendo perso i sorgenti di un mio vecchio programma non riesco più a capire come ho fatto a farlo funzionare.
In pratica ho dei file che devo spostare e/o rinominare che sono composti tipo così:

PIPPO.12345678.TXT
PLUTO.87654321.TXT
ecc.

Sapendo sempre i nomi iniziali, fino al punto, dovrei convertirli così:

PIPPO.TXT
PLUTO.TXT
ECC.
Il codice citava pressappoco così:

Codice sorgente - presumibilmente VB.NET

  1. Dim strFolder As String
  2. Dim strFile As String
  3.  
  4.  strFolder = "C:\PROVA\"
  5.  strFile = Dir(strFolder & "PIPPO*.TXT")
  6.  Do While Len(strFile) > 0
  7.  If InStr(strFile, "PIPPO*") > 0 Then
  8.  FileCopy "C:\PROVA\PIPPO*.TXT", "C:\PROVA\PIPPO.TXT"
  9. End If
  10. strFile = Dir()
  11. Loop



anzi mi ricordo che era più corto del tipo:

Codice sorgente - presumibilmente Delphi

  1. File = Dir("C:\PROVA\PIPPO*.TXT")
  2. If Len(File) > 0 Then
  3. FileCopy "C:\PROVA\PIPPO*.TXT", "C:\PROVA\PIPPO.TXT"
  4. End If



Ho provato e riprovato ma il file è sempre "not found" non riesco a capire dove sbaglio.

Grazie e buona serata

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 18:37
Giovedì, 11/05/2017
Ma devi proprio copiarlo o solo rinominarlo ?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
barilla (Normal User)
Newbie


Messaggi: 8
Iscritto: 13/05/2007

Segnala al moderatore
Postato alle 20:09
Giovedì, 11/05/2017
copiarlo in una nuova cartella rinominandolo

Grazie

PM Quote
Avatar
TheDarkJuster (Member)
Guru^2


Messaggi: 1452
Iscritto: 27/09/2013

Segnala al moderatore
Postato alle 23:07
Giovedì, 11/05/2017
Copiare e rinominare sono due cose differenti. La frase "copiarlo .... rinominandolo" non ha senso.

Specifica meglio.

Io mi farei passare il nome del file e a quello applicherei la regex [inizio](caratteri validi).(uno o più numeri). (Qualsiasi cosa)[fine]

E in caso di match userei il risultato del primo gruppo come nome del file.

PM Quote
Avatar
barilla (Normal User)
Newbie


Messaggi: 8
Iscritto: 13/05/2007

Segnala al moderatore
Postato alle 9:15
Venerdì, 12/05/2017
Premetto che non sono un programmatore sono uno smanettone che prende parti di codici li assembla per poi generare programmini per le mie varie esigenze.
Per essere più chiaro.... mi accontento solo di rinominarlo con un nome certo e da questo poi posso fare qualsiasi cosa.

Grazie

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 14:30
Venerdì, 12/05/2017
Il file può essere copiato rinominandolo, non vedo il problema.

La faccenda è un'altra.

Si è detto che i file possono chiamarsi

PIPPO.12345678.TXT
PLUTO.87654321.TXT

mentre nel codice tu cerchi soltanto quelli che iniziano per PIPPO*

Quindi chiarisci perché tutti gli altri non li troveresti.

Se ho capito bene, i file iniziali sono tutti dei .txt, il nome è fatto da 2 parti intervallate da un punto e tu vuoi tenere solo la prima parte. Corretto?

Fra l'altro parli di cartelle diverse per l'origine e la destinazione ma nel codice utilizzi sempre la stessa cartella.

Ultima modifica effettuata da nessuno il 12/05/2017 alle 14:31


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
barilla (Normal User)
Newbie


Messaggi: 8
Iscritto: 13/05/2007

Segnala al moderatore
Postato alle 17:16
Venerdì, 12/05/2017
Scusate ma nel voler disturbare il meno possibile ho complicato tutto.

Allora in realtà i file sono 3 e sono tipo:

PIPPO.123456789012.TXT
PLUTO.210987654321.TXT
ORAZIO.(NUMERO CASUALE A 12 CIFRE).TXT

Essi vengono generati/scaricati nel percorso di un pc con Xp che è questo:

"Documents and Settings\Nomepc\Documenti\Download\"

il mio eseguibile li prendeva da lì, li spostava nella cartella "C:\", li rinominava solo con il nome iniziale "PIPPO, PLUTO, ECC." senza estensione dopodichè creava un backup(con nome,giorno e ora) in un'altra cartella e cancellava i riferimenti e il tutto si chiudeva a prescindere se i file erano presenti tutti, qualcuno, nessuno.
Questo è durato per un paio di anni senza problemi.
Il problema è subentrato poichè ho dovuto aggiornare il pc a Seven, è cambiato solo il percorso di download, quindi ho cercato i vecchi sorgenti ma per sbaglio li avevo riscritti.
Ho cercato di riscrivere il listato ma stavolta non riesco proprio ad arrivarci.

Grazie per la pazienza e scusate ancora

PM Quote