Newsgroup: it.comp.lang.visual-basic
Titolo: Spostamento files: HELP

Devo spostare files da una directory ad un'altra solo se questi sono
più vecchi di tot giorni.
Qualcuno sa dirmi perché questo codice nno funziona?
Dov'è l'errore?
------------------------------
Private Sub Command1_Click()
Dim sDataLimite As String
Dim sPercorso As String
Dim spercorsobackup As String
Dim Myfile
'Dim SourceFile As String
'Dim DestinationFile As String
sDataLimite = "01/12/2003"
sPercorso = "c:\testdelete"
spercorsobackup = "c:\testdeletebackup"
Myfile = Dir(sPercorso & "\" & "*.mp3")  ' Recupera la prima voce.
Do While Myfile <> ""   ' Avvia il ciclo.
If Format(FileDateTime(sPercorso & "\" & Myfile), "dd/MM/yyyy") <=
sDataLimite Then
   'SourceFile (sPercorso & "\" & Myfile)   ' Definisce il file
sorgente da copiare.
   'DestinationFile (sPercorsobackup & "\" & Myfile)   ' Definisce
dove copiare il file.
   'FileCopy SourceFile, DestinationFile   ' Copia il file sorgente
nella destinazione.
   Kill (sPercorso & "\" & Myfile)
End If
Myfile = Dir 'legge la voce successiva
Loop
End Sub
------------------------------
Grazie mille.
Riccardo

 ha scritto nel messaggio
news:f0eb0999.03122...@posting.google.com...
Dim sDataLimite As Date ' String
Dim sPercorso As String
Dim spercorsobackup As String
Dim Myfile
Dim SourceFile As String
Dim DestinationFile As String
Dim datafile As Date
sDataLimite = "01/09/2003"
sPercorso = "c:\testdelete"
spercorsobackup = "c:\testdeletebackup"
Myfile = Dir(sPercorso & "\*.txt")   ' Recupera la prima voce.
Do While Myfile <> ""   ' Avvia il ciclo.
datafile = FileDateTime(sPercorso & "\" & Myfile)
If datafile <= sDataLimite Then
Debug.Print Myfile
End If
Myfile = Dir 'legge la voce successiva
Loop
Se posizioni il mouse su Dir e premi F1,
successivamente il mouse su FileDateTime e premi F1,
si presentano esempi risolutori.
Ave e buone feste
giuseppeD

Grazie mille per l'aiuto. Adesso identifica i files, e li cancella anche, ma
non riesco a far eseguire la copia del file.
In particolare mi si blocca sul riconoscimento del file di origine
(SourceFile (sPercorso & "\" & Myfile)).
Ho cercato anche nella guida, am non sono stato in grado di capire il
problema.
A costo di abusare della tua pazienza, non è che sapresti indicarmi dov'è?
Grazie e buon Natale.
Riccardo
____________________________
Private Sub Command1_Click()
Dim sDataLimite As Date ' String
Dim sPercorso As String
Dim spercorsobackup As String
Dim Myfile
Dim SourceFile As String
Dim DestinationFile As String
Dim datafile As Date
sDataLimite = "10/01/2001"
sPercorso = "d:\mp3"
spercorsobackup = "c:\testdeletebackup"
Myfile = Dir(sPercorso & "\*.*")   ' Recupera la prima voce.
Do While Myfile <> ""   ' Avvia il ciclo.
datafile = FileDateTime(sPercorso & "\" & Myfile)
If datafile <= sDataLimite Then
  Debug.Print Myfile
  SourceFile (sPercorso & "\" & Myfile)   ' Definisce il file sorgente da
copiare
  FileCopy SourceFile, DestinationFile   ' Copia il file sorgente nella
destinazione.
  Kill (sPercorso & "\" & Myfile)
  MsgBox Myfile
End If
Myfile = Dir 'legge la voce successiva
Loop
End Sub

Grazie mille per l'aiuto. Adesso identifica i files, e li cancella anche, ma
non riesco a far eseguire la copia del file.
In particolare mi si blocca sul riconoscimento del file di origine
(SourceFile (sPercorso & "\" & Myfile)).
Ho cercato anche nella guida, am non sono stato in grado di capire il
problema.
A costo di abusare della tua pazienza, non è che sapresti indicarmi dov'è?
Grazie e buon Natale.
Riccardo
____________________________
Private Sub Command1_Click()
Dim sDataLimite As Date ' String
Dim sPercorso As String
Dim spercorsobackup As String
Dim Myfile
Dim SourceFile As String
Dim DestinationFile As String
Dim datafile As Date
sDataLimite = "10/01/2001"
sPercorso = "d:\mp3"
spercorsobackup = "c:\testdeletebackup"
Myfile = Dir(sPercorso & "\*.*")   ' Recupera la prima voce.
Do While Myfile <> ""   ' Avvia il ciclo.
datafile = FileDateTime(sPercorso & "\" & Myfile)
If datafile <= sDataLimite Then
  Debug.Print Myfile
  SourceFile (sPercorso & "\" & Myfile)   ' Definisce il file sorgente da
copiare
  FileCopy SourceFile, DestinationFile   ' Copia il file sorgente nella
destinazione.
  Kill (sPercorso & "\" & Myfile)
  MsgBox Myfile
End If
Myfile = Dir 'legge la voce successiva
Loop
End Sub

 End Sub
Il seguente, nel mio pc funziona:
Private Sub Command1_Click()
Dim sDataLimite As Date ' String
Dim sPercorso As String
Dim spercorsobackup As String
Dim Myfile
Dim SourceFile As String
Dim DestinationFile As String
Dim datafile As Date
'
sDataLimite = "01/10/2003"
sPercorso = "c:\mp3"
spercorsobackup = "c:\MP3Backup"
Myfile = Dir(sPercorso & "\*.*")   ' Recupera la prima voce.
Do While Myfile <> ""   ' Avvia il ciclo.
datafile = FileDateTime(sPercorso & "\" & Myfile)
If datafile <= sDataLimite Then
  Debug.Print Myfile
  SourceFile = (sPercorso & "\" & Myfile)  ' Definisce il file sorgente da
copiare
  DestinationFile = (spercorsobackup & "\" & Myfile)
  FileCopy SourceFile, DestinationFile   ' Copia il file sorgente nella
destinazione.
  Kill (sPercorso & "\" & Myfile)
 ' MsgBox Myfile
End If
Myfile = Dir 'legge la voce successiva
Loop
End Sub
Di nuovo auguri
Ave, da una Roma in tramontana
giuseppeD