[VB?] Spostare file da directory a subdirectory

[olaspa]

ciao mi rivolgo a voi per un consiglio...
in una cartella, pippo, devo creare una nuova sottocartella,pluto.
Poi in pluto, devo spostare tutti i file .csv, di pippo.
Pultroppo il nome del file varia a seconda del giorno e dell'ora. Quindi non posso usare Filecopy per spostare. Volevo sapere se c'erano altri comandi al posto di FileCopy...ecc
qualcuno sa aiutarmi...

io sono riuscito solo a creare la directory

MkDir "C:\CIMPLICITY\HMI\D1970\pippo\pluto\"


grazie a tutti

[kalosjo]

Manca il linguaggio nel titolo.
Prima che intervenga alka, leggi il regolamento....

[icecube_HT]

Originariamente inviato da olaspa
ciao mi rivolgo a voi per un consiglio...
in una cartella, pippo, devo creare una nuova sottocartella,pluto.
Poi in pluto, devo spostare tutti i file .csv, di pippo.
Pultroppo il nome del file varia a seconda del giorno e dell'ora. Quindi non posso usare Filecopy per spostare. Volevo sapere se c'erano altri comandi al posto di FileCopy...ecc
qualcuno sa aiutarmi...

io sono riuscito solo a creare la directory
MkDir "C:\CIMPLICITY\HMI\D1970\pippo\pluto\"

Ciao ! Premesso che la dir "pluto" l'hai gia' creata, puoi provare questo codice:

   ChDir "C:\CIMPLICITY\HMI\D1970\pippo"
   Dim d As String
   d = Dir("")
   While d <> ""
      If LCase$(d) Like "*.csv" Then Name d As "pluto\" & d
      d = Dir
   Wend

[LeleFT]

Originariamente inviato da kalosjo
Manca il linguaggio nel titolo.
Prima che intervenga alka, leggi il regolamento....

Sono intervenuto io... quoto questo messaggio ed invito l'autore della discussione a indicare il linguaggio utilizzato.

Per le prossime volte, come da regolamento, il linguaggio andrà specificato sempre nel titolo.


Ciao.

[olaspa]

Originariamente inviato da olaspa
ciao mi rivolgo a voi per un consiglio...
in una cartella, pippo, devo creare una nuova sottocartella,pluto.
Poi in pluto, devo spostare tutti i file .csv, di pippo.
Pultroppo il nome del file varia a seconda del giorno e dell'ora. Quindi non posso usare Filecopy per spostare. Volevo sapere se c'erano altri comandi al posto di FileCopy...ecc
qualcuno sa aiutarmi...

io sono riuscito solo a creare la directory

MkDir "C:\CIMPLICITY\HMI\D1970\pippo\pluto\"


grazie a tutti

Mi spiace ma nn riesco a modificare il titolo. Scusate il mio errore

[olaspa]

Grazie mille, con il codice che avete postato sono riusciuto a fare quello che mi ero prefissato.

Vi vorrei chiedere un altra cosa, ma per curiosità.

Mi piacerebbe mettere un casella d testo dove scrivere il lotto del processo, e mi piacerebbe che questo codice prenda il posto della data nell'esportazione del logging.

Prima: ----> Dopo:

TREND070801_114956.csv ----> TREND A25001
MINUTO070801_114956.csv ----> MINUTO A25001

Io ogni volta che esporto il logging, ottengo questi 2 file, chiamati minuto e trend.

Naturalmente tutto in visual basic.
Qualcuno a qualche idea...
grazie mille

[icecube_HT]

Originariamente inviato da olaspa
Grazie mille, con il codice che avete postato sono riusciuto a fare quello che mi ero prefissato.

Vi vorrei chiedere un altra cosa, ma per curiosità.

Mi piacerebbe mettere un casella d testo dove scrivere il lotto del processo, e mi piacerebbe che questo codice prenda il posto della data nell'esportazione del logging.

Prima: ----> Dopo:

TREND070801_114956.csv ----> TREND A25001
MINUTO070801_114956.csv ----> MINUTO A25001

Io ogni volta che esporto il logging, ottengo questi 2 file, chiamati minuto e trend.

Naturalmente tutto in visual basic.
Qualcuno a qualche idea...
grazie mille

Sinceramente non ho capito nulla di logging, ecc... pero' se il problema e' da ricondurre al cambiamento del nome dei file (DOPO che e' stato creato dal tuo programma), si puo' usare lo stesso sistema visto in precedenza:

1) per comodita' cambi la directory corrente a quella del file, con ChDir "..."

2) scandisci tutta la dir, prelevando il nome di ciascun file, come nell'esempio precedente:
Dim d As String
d = Dir("")
While d <> ""

3) controlli che il nome del file sia "conforme" alle specifiche, nel qual caso gli cambi il nome:
If LCase$(d) Like "trend######_*.csv" Then Name d As "TREND " & txtLotto
If LCase$(d) Like "minuto######_*.csv" Then Name d As "MINUTO " & txtLotto
(qui ovviamente txtLotto e' l'ipotetico nome della tua textbox)

4) ripeti il ciclo per tutti i file:
d = Dir
Wend


Spero possa esserti utile, ciao !

[alka]

Originariamente inviato da olaspa
Naturalmente tutto in visual basic.

Naturalmente, esistendo più versioni di questo linguaggio, come indicato nel Regolamento, ci interessa sapere di quale si tratta.

[olaspa]

..ok, scusate.

cmq e [VB?]-usato per la programmazione con l Cimplicity, programma per la grafica industriale, sui PLC