Oppure

Loading
29/08/07 9:46
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\"
aaa
29/08/07 10:27
GrG
per spostare i tuoi file prova a fare così:
(esempio)

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub command1_click()

MoveFile "c:\prova.txt","c:\visual\prova.txt"

End Sub

se ci sono problemi postami:k:
aaa
29/08/07 11:00
olaspa
mi sono spiegato male....

i file che voglio spostare anno questo formato

MINUTO280808_121011.csv
TREND280808_121011.csv

MINUTO220808_090810.csv
TREND220808_090810.csv

i numeri corrispondo alla data e all'ora.
A me basterebbe riuscire a fare un programma che mi copi solo i file .csv, o tutti i file all'interno della cartella.
grazie mille
aaa
29/08/07 11:06
GrG
ho capito però dico che se vuoi spostare quei file
metti il loro nome al posto di prova.txt e scrivi il percorso.
aaa
29/08/07 11:42
GrG
scusami mi sono sbagliato, non avendo letto attentamente all'inizio, non avevo capito il tuo problema.
Adesso vedrò con il mio vb che cosa posso fare per aiutarti, ma non ti assicuro niente.
aaa
29/08/07 12:22
P4p3r0g4
basta che inserisci un filoelistbox.
poi con un ciclo puoi ricavare uno ad uno i file della cartella.
se le ulrime tre lettere della stringa sono "csv" allora si proceda con la copia.
filelistbox.list(x) ricevi una stringa contenente il nome del file x
filelistbox.listcount ti da il numero di file (edi voci presenti nel listbox) + 1 corrispondente al filestbox.list(0) che in realtà non esiste.
il ciclo sarà
for x = 1 to filelistbox.listcount -1

poi arrangiatevi voi
aaa
31/08/07 15:22
ma non può andar bene qll che dice GrG??

modificando qualcosa:

Private Sub command1_click()

MoveFile "c:\*.txt","c:\visual\prova.txt"

End Sub

In dos, poi nn so se qui è lo stesso, così comprendi tutti i file con estensione .txt
perchè l'asterisco sostituisce qualsiasi carattere ammissibile in un nome di file.

Quindi, verranno copiati i file:
pippo.txt
ciao.txt
prova169.txt
9678.txt
ecc...

o no????:asd:
Ultima modifica effettuata da 31/08/07 15:24
31/08/07 15:36
GrG
john quello che dici tu teoricamente è corretto, ma nonostante ciò non funziona, ciò provato io.
Comunque questa discussione era di qualche giorno fa quindi non credo che Olaspa c'è ancora.
aaa