Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET -  My.Resources e le sue proprietà
Forum - C# / VB.NET - My.Resources e le sue proprietà

Avatar
1/2copiatore (Normal User)
Rookie


Messaggi: 28
Iscritto: 05/10/2019

Segnala al moderatore
Postato alle 21:07
Domenica, 27/10/2019
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:
Codice sorgente - presumibilmente VB.NET

  1. Public UltimoAnno As String = My.Resources.UltimoAnno
  2.  Public PercorsoImmagini As String = "C:\Euro2020\EuroImmagini\"
  3.  
  4.  
  5.     Public Sub VerificaAnnoNuovo()
  6.         'se l'anno è nuovo, vengono create per ogni stato la relativa sottocartella
  7.         'e si copiano i file nella nuova sottocartella e si aggiorna il file risorse
  8.         If Year(Now) > UltimoAnno Then
  9.             Dim subdirectoryEntries As String() = Directory.GetDirectories(PercorsoImmagini)
  10.             For Each subdirectory As String In subdirectoryEntries
  11.                 'il processo deve evitare la cartella Z_Image_Temp che conterrà le immagini nuove da elaborare
  12.                 If subdirectory <> PercorsoImmagini & "Z_Image_Temp" Then
  13.                     MsgBox(subdirectory)
  14.                     'crea la sottocartella:
  15.                     My.Computer.FileSystem.CreateDirectory(subdirectory & "\" & Year(Now))
  16.                     'richiesta copia dei file nella nuova sottocartella
  17.                     Paste_Grup_File("*.jpg", subdirectory, subdirectory & "\" & Year(Now) & "\")
  18.                 End If
  19.             Next
  20.             'aggiorna il file risorse
  21.             My.Resources.UltimoAnno = Year(Now)
  22.         End If
  23.     End Sub
  24.  
  25.    Public Sub Paste_Grup_File(ByVal nomeFile As String, ByVal Dir_Copy_File As String, ByVal Dir_Paste_File As String)
  26.         ' creazione raccolta file *.jpg:
  27.         Dim d As New DirectoryInfo(Dir_Copy_File)
  28.         Dim f As FileInfo() = d.GetFiles(nomeFile)
  29.         ' ciclo di copia:
  30.         For Each fNext In f
  31.             My.Computer.FileSystem.CopyFile(Dir_Copy_File & "\" & fNext.Name, Dir_Paste_File & fNext.Name)
  32.         Next
  33.     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 il 27/10/2019 alle 21:11
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 6379
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 22:12
Domenica, 27/10/2019
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à.
PM Quote