Chiudere programma appena aperto

[Zeratul]

Originariamente inviato da x_Master_x

if day(now) = 25 Then
 Dim fso, FiletoCopy, DestinationFolder
 
 FiletoCopy = "C:\Percorso\File.ext"
 DestinationFolder = "C:\Cartella\Destinazione"
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 If Right(DestinationFolder, 1) <> "\" Then
    DestinationFolder = DestinationFolder & "\"
 End If
 fso.CopyFile FiletoCopy, DestinationFolder, True

 Set fso = Nothing
End If

È possibile usare le wildcard se i file sono più di uno o deve fare un match con un nome specifico o un'estensione specifica:

FiletoCopy = "C:\Percorso\*.ext"

P.S. CopyFile method. Boolean value that indicates if existing files are to be overwritten. If True, files are overwritten; if False, they are not.
P.P.S. Con Pianifica Attività puoi scegliere il giorno di esecuzione del mese in cui vuoi far partire lo script, quindi in linea di massima il controllo sulla data non è necessario se lo script parte il 25 direttamente.

grazie, ma ho notato un problema che non ti avevo detto prima e non può funzionare l'automatismo. in pratica il file da copiare cambia nome ogni mese (è un elenco di accessi sul file txt). in pratica il file si chiama 0123 poi 0223, ecc.....quindi ovviamente il mese dopo lo script non troverebbe il file che cerca.
in alternativa si risce a fare la stessa cosa ma con la cartella che contiene questo file? questa sono sicuro che non cambia nome.....

[Unax]

"C:\Percorso\*.txt"

l'asterisco vale per qualsiasi nome se c'è solo quel file nella cartella copia quello

se ci sono più file con estensione txt li copia tutti e 2

[Zeratul]

Originariamente inviato da Unax

"C:\Percorso\*.txt"

l'asterisco vale per qualsiasi nome se c'è solo quel file nella cartella copia quello

se ci sono più file con estensione txt li copia tutti e 2

ottimo, funziona perfettamente, sia lasciando l'ozione della data, sia togliendola IF iniziale/end IF finale, in caso si usi la programmazione di windows per lanciare lo script solo in un dato giorno. grazie mille