27/10/19 20:07
1/2copiatore
Buonasera a tutti
dovendo salvare una variabile, non volendo sfruttare un file INI e per prendere un po' la mano su My.Resources, come al solito ho visionato un bel po' di siti sull'argomento, la cosa l'ho travata semplicissima.
Ecco il listato:
Tutto bene fino all'aggiornamento della variabile (riga 21) qui mi dice che la proprietà è "ReadOnly".
Come agire per permettere la riscrittura?
dovendo salvare una variabile, non volendo sfruttare un file INI e per prendere un po' la mano su My.Resources, come al solito ho visionato un bel po' di siti sull'argomento, la cosa l'ho travata semplicissima.
Ecco il listato:
Public UltimoAnno As String = My.Resources.UltimoAnno Public PercorsoImmagini As String = "C:\Euro2020\EuroImmagini\" Public Sub VerificaAnnoNuovo() 'se l'anno è nuovo, vengono create per ogni stato la relativa sottocartella 'e si copiano i file nella nuova sottocartella e si aggiorna il file risorse If Year(Now) > UltimoAnno Then Dim subdirectoryEntries As String() = Directory.GetDirectories(PercorsoImmagini) For Each subdirectory As String In subdirectoryEntries 'il processo deve evitare la cartella Z_Image_Temp che conterrà le immagini nuove da elaborare If subdirectory <> PercorsoImmagini & "Z_Image_Temp" Then MsgBox(subdirectory) 'crea la sottocartella: My.Computer.FileSystem.CreateDirectory(subdirectory & "\" & Year(Now)) 'richiesta copia dei file nella nuova sottocartella Paste_Grup_File("*.jpg", subdirectory, subdirectory & "\" & Year(Now) & "\") End If Next 'aggiorna il file risorse My.Resources.UltimoAnno = Year(Now) End If End Sub Public Sub Paste_Grup_File(ByVal nomeFile As String, ByVal Dir_Copy_File As String, ByVal Dir_Paste_File As String) ' creazione raccolta file *.jpg: Dim d As New DirectoryInfo(Dir_Copy_File) Dim f As FileInfo() = d.GetFiles(nomeFile) ' ciclo di copia: For Each fNext In f My.Computer.FileSystem.CopyFile(Dir_Copy_File & "\" & fNext.Name, Dir_Paste_File & fNext.Name) Next End Sub
Tutto bene fino all'aggiornamento della variabile (riga 21) qui mi dice che la proprietà è "ReadOnly".
Come agire per permettere la riscrittura?
Ultima modifica effettuata da 1/2copiatore 27/10/19 20:11
aaa