Oppure

Loading
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:
    
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
27/10/19 21:12
nessuno
Tu non hai chiaro il concetto di risorsa. Sono dati inclusi nell'eseguibile che possono essere solo letti e ovviamente non scritti.

Forse fai confusione con i Settings.

O semplicemente stai studiando in maniera superficiale e confusionaria il linguaggio.
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.