-
Articoli
-
Tramite codice vba vorrei poter applicare a diverse cartelle (cartelle Windows) diverse icone.
Le icone sono contenute all'interno di una cartella icone.
indirizzo relativo = (cartella principale\icone\*.ico)
Mentre le cartelle sono nella cartella principale
indirizzo relativo =(cartella principale\*cartelle*)
Argomento per me sconosciuto, ci provo 🙂
Una "OLA" tutta per vecchio frac sicuro che ci riuscirai !
Mah, fattibile pare fattibile, c'è da smazzarsi un po' ma insomma ... Accade però questo: tu distribuisci il tuo programma zippato che è composto da una serie di cartelle (tra parentesi, il giga e rotti di file audio si può e si deve minimizzare in mp3... ci sono anche tools online che lo fanno. Mica puoi pretendere che i tuoi utenti, per un aggiornamento, si scarichino ogni volta tutto quanto!), l'utente si mette il zippone da qualche parte, decompatta e si trova diverse belle cartelle piene di file, e infine il programma principale, avviato, si mette a cambiare le icone alle cartelle... sai la sorpresa?
Comunque funziona così: in ogni cartella ci dovrebbe essere una sequenza di file nascosti, desktop.ini, thum.db e folder.ico, che insieme determinano l'aspetto dell'icona di quella cartella. Basta copiare l'icona nella cartella, nasconderla, rinominandola folder.ico, quindi sovrascrivere desktop.ini inserendovi le nuove informazioni sull'icona.
Ho fatto un test veloce e pare funzionare 😀
Se ho tempo scrivo i passi da seguire.
vecchio frac ha scritto:
in ogni cartella ci dovrebbe essere una sequenza di file nascosti, desktop.ini, thum.db e folder.ico, che insieme determinano l'aspetto dell'icona di quella cartella.Su win 10 non è così, nelle cartelle normali non c'è alcun file nascosto, però se ci metti il desktop.ini allora puoi cambiare l'icona, basta mettere il percorso senza aggiungere folder.ico.
Questo il contenuto di desktop.ini
[.ShellClassInfo]
IconFile=F:\Documenti\Immagini\Icone\BICYCLE.ICO
IconIndex=0
InfoTip=Icona modificataIl file non lo crea perché già esiste, ho spuntato visualizza file nascosti ma non lo vedo ancora !
Per Patel - la grandezza di poco più di un giga è imponente per un giochino di questa portata, appena avrò risolto alcune faccende sempre del gioco, provvederò alla decodifica dei wav in mp3… il dramma sarà cambiare tutti i vari sistemi di "call" riferiti ai file audio che avranno un diverso codice per (mp3).
Volevo fare invece o anche una cartella contenente solo i file "nuovi" senza dover riprendere l'intero pacco, in questo caso dovrei fare un software non troppo elaborato che verifichi l'esistenza di tutti i file e provvedere a prelevare solo quelli richiesti, in questo caso dovrei zippare ogni singolo file e metterlo a disposizione per essere prelevato manualmente attraverso il sito.
Comunque dopo la prossima versione non aggiungerò nulla al gioco ma provvederò solo a snellire il codice dove posso per renderlo più veloce (il caricamenti è molto lento)! .. Ci sono da pulire moltissimi codici!
il mio post non era per te ma per VF, tu cosa hai fatto ? che versione di win hai ?
che versione di win hai ? Vorrei che funzionasse per tutte le versioni di Windows almeno le più recenti
(ME, XP, 7, 8,10)…!
Non mi visualizza i file … possibile che non mi vede come amministratore di sistema?!
Possiedo ho Win 10.
Non centra nulla con la domanda ma solo per la cronaca:
Ecco su cosa sto sbattendo la testa ultimamente e devo ancora finirlo...
Nel codice che ho postato vedo molti "?" che in realtà non esistono, al loro interno c'è un carattere che qui non è stato mostrato … ma non importa adesso, però l'ho notato e l'ho riferito!
(Se per rispondere alla domanda sorgono complicazioni, non è necessaria una risposta, tolgo il problema cancello le icone e sparisce il problema)… Poi se la domanda risulta interessante per altri utenti la storia cambia!
`Private Sub UserForm_Initialize() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With ' Label16 = "": Label17 = "": Label18 = "": Label19 = "": Label20 = "": Label21 = "": Label22 = "": Label23 = "": Label24 = "": Label25 = "": Label26 = "": Label27 = "": Label28 = "": Label29 = "": Label43 = "": Label44 = "": Label45 = "": Label46 = "": Label47 = "": Label48 = "": Label49 = "": Label50 = "": Label51 = "": Label52 = "": Label53 = "": Label54 = "": Label55 = "": Label69 = "": Label70 = "": Label71 = "": Label72 = "": Label73 = "": Label74 = "": Label75 = "": Label76 = "": Label77 = "": Label78 = "": Label79 = "": Label80 = "": Label81 = "": Label95 = "": Label96 = "": Label97 = "": Label98 = "": Label99 = "": Label100 = "": Label101 = "": Label102 = "": Label103 = "": Label104 = "": Label105 = "": Label106 = "" ' Dim A, B, C, D, E, F, G, H, I, J, K, L, M As String ' VALORI -> Label ' Dim OG1, OG2, OG3, OG4 As String ' OGGETTI ' XXXX = 0 ' Conta quanti oggetti esistono CCC = 0 ' Salta da (N14-> N15-> N16 -> N17) ' OGG1 = 0 ' Se in N14 esiste oggetto =1 OGG2 = 0 ' Se in N15 esiste oggetto =1 OGG3 = 0 ' Se in N16 esiste oggetto =1 OGG4 = 0 ' Se in N17 esiste oggetto =1 ' OG1 = Sheets("TURNO").Range("N14") OG2 = Sheets("TURNO").Range("N15") OG3 = Sheets("TURNO").Range("N16") OG4 = Sheets("TURNO").Range("N17") ' Svuota = 0 ' Svuota valori in memorie Dim->(A ... M) ' ??? CONOSCE QUANTI OGGETTI ??? If OG1 <> "" Then XXXX = XXXX + 1: OGG1 = 1 If OG2 <> "" Then XXXX = XXXX + 1: OGG2 = 1 If OG3 <> "" Then XXXX = XXXX + 1: OGG3 = 1 If OG4 <> "" Then XXXX = XXXX + 1: OGG4 = 1 ' If XXXX = 0 Then GoTo VISUALIZZA '************************************************************************** CERCA OGGETTI If OGG1 = 0 Then GoTo G2 ' Bottega Mistica If OG1 = "O1" Then GoTo 1 If OG1 = "O2" Then GoTo 2 If OG1 = "O3" Then GoTo 3 If OG1 = "O4" Then GoTo 4 If OG1 = "O5" Then GoTo 5 If OG1 = "O6" Then GoTo 6 If OG1 = "O7" Then GoTo 7 If OG1 = "O8" Then GoTo 8 If OG1 = "O9" Then GoTo 9 If OG1 = "O10" Then GoTo 10 If OG1 = "O11" Then GoTo 11 If OG1 = "O12" Then GoTo 12 If OG1 = "O13" Then GoTo 13 If OG1 = "O14" Then GoTo 14 If OG1 = "O15" Then GoTo 15 If OG1 = "O16" Then GoTo 16 If OG1 = "O17" Then GoTo 17 If OG1 = "O18" Then GoTo 18 If OG1 = "O19" Then GoTo 19 If OG1 = "O20" Then GoTo 20 ' Fabbro If OG1 = "O21" Then GoTo 21 If OG1 = "O22" Then GoTo 22 If OG1 = "O23" Then GoTo 23 If OG1 = "O24" Then GoTo 24 If OG1 = "O25" Then GoTo 25 ' Stregone If OG1 = "O26" Then GoTo 26 If OG1 = "O27" Then GoTo 27 If OG1 = "O28" Then GoTo 28 ' Mago If OG1 = "O29" Then GoTo 29 If OG1 = "O30" Then GoTo 30 If OG1 = "O31" Then GoTo 31 ' Speciali If OG1 = "OS1U" Then GoTo 32 If OG1 = "OS2U" Then GoTo 33 If OG1 = "OS3U" Then GoTo 34 If OG1 = "OS4U" Then GoTo 35 If OG1 = "OS5U" Then GoTo 36 ' Extra If OG1 = "E1U" Then GoTo 37 If OG1 = "E2U" Then GoTo 38 If OG1 = "E3U" Then GoTo 39 If OG1 = "E4U" Then GoTo 40 If OG1 = "E5U" Then GoTo 41 If OG1 = "E6U" Then GoTo 42 ' La bottega del vendicatore If OG1 = "B1UV" Then GoTo 43 If OG1 = "B2UV" Then GoTo 44 If OG1 = "B3UV" Then GoTo 45 If OG1 = "B4UV" Then GoTo 46 If OG1 = "B5UV" Then GoTo 47 If OG1 = "B6UV" Then GoTo 48 If OG1 = "B7UV" Then GoTo 49 If OG1 = "B8UV" Then GoTo 50 If OG1 = "B9UV" Then GoTo 51 If OG1 = "B10UV" Then GoTo 52 If OG1 = "B11UV" Then GoTo 53 If OG1 = "B12UV" Then GoTo 54 If OG1 = "B13UV" Then GoTo 55 If OG1 = "B14UV" Then GoTo 56 '-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/ G2: GoTo L_N14 R_L_N14: If XXXX = 0 Then GoTo VISUALIZZA CCC = 1 ' If OGG2 = 0 Then GoTo G3 ' Bottega Mistica If OG2 = "O1" Then GoTo 1 If OG2 = "O2" Then GoTo 2 If OG2 = "O3" Then GoTo 3 If OG2 = "O4" Then GoTo 4 If OG2 = "O5" Then GoTo 5 If OG2 = "O6" Then GoTo 6 If OG2 = "O7" Then GoTo 7 If OG2 = "O8" Then GoTo 8 If OG2 = "O9" Then GoTo 9 If OG2 = "O10" Then GoTo 10 If OG2 = "O11" Then GoTo 11 If OG2 = "O12" Then GoTo 12 If OG2 = "O13" Then GoTo 13 If OG2 = "O14" Then GoTo 14 If OG2 = "O15" Then GoTo 15 If OG2 = "O16" Then GoTo 16 If OG2 = "O17" Then GoTo 17 If OG2 = "O18" Then GoTo 18 If OG2 = "O19" Then GoTo 19 If OG2 = "O20" Then GoTo 20 ' Fabbro If OG2 = "O21" Then GoTo 21 If OG2 = "O22" Then GoTo 22 If OG2 = "O23" Then GoTo 23 If OG2 = "O24" Then GoTo 24 If OG2 = "O25" Then GoTo 25 ' Stregone If OG2 = "O26" Then GoTo 26 If OG2 = "O27" Then GoTo 27 If OG2 = "O28" Then GoTo 28 ' Mago If OG2 = "O29" Then GoTo 29 If OG2 = "O30" Then GoTo 30 If OG2 = "O31" Then GoTo 31 ' Speciali If OG2 = "OS1U" Then GoTo 32 If OG2 = "OS2U" Then GoTo 33 If OG2 = "OS3U" Then GoTo 34 If OG2 = "OS4U" Then GoTo 35 If OG2 = "OS5U" Then GoTo 36 ' Extra If OG2 = "E1U" Then GoTo 37 If OG2 = "E2U" Then GoTo 38 If OG2 = "E3U" Then GoTo 39 If OG2 = "E4U" Then GoTo 40 If OG2 = "E5U" Then GoTo 41 If OG2 = "E6U" Then GoTo 42 ' La bottega del vendicatore If OG2 = "B1UV" Then GoTo 43 If OG2 = "B2UV" Then GoTo 44 If OG2 = "B3UV" Then GoTo 45 If OG2 = "B4UV" Then GoTo 46 If OG2 = "B5UV" Then GoTo 47 If OG2 = "B6UV" Then GoTo 48 If OG2 = "B7UV" Then GoTo 49 If OG2 = "B8UV" Then GoTo 50 If OG2 = "B9UV" Then GoTo 51 If OG2 = "B10UV" Then GoTo 52 If OG2 = "B11UV" Then GoTo 53 If OG2 = "B12UV" Then GoTo 54 If OG2 = "B13UV" Then GoTo 55 If OG2 = "B14UV" Then GoTo 56 '-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/ G3: GoTo L_N15 R_L_N15: If XXXX = 0 Then GoTo VISUALIZZA CCC = 2 ' If OGG3 = 0 Then GoTo G4 ' Bottega Mistica If OG3 = "1" Then GoTo 1 If OG3 = "2" Then GoTo 2 If OG3 = "3" Then GoTo 3 If OG3 = "4" Then GoTo 4 If OG3 = "5" Then GoTo 5 If OG3 = "6" Then GoTo 6 If OG3 = "7" Then GoTo 7 If OG3 = "8" Then GoTo 8 If OG3 = "9" Then GoTo 9 If OG3 = "A" Then GoTo 10 If OG3 = "B" Then GoTo 11 If OG3 = "C" Then GoTo 12 If OG3 = "D" Then GoTo 13 If OG3 = "E" Then GoTo 14 If OG3 = "F" Then GoTo 15 If OG3 = "G" Then GoTo 16 If OG3 = "H" Then GoTo 17 If OG3 = "I" Then GoTo 18 If OG3 = "J" Then GoTo 19 If OG3 = "K" Then GoTo 20 ' Fabbro If OG3 = "L" Then GoTo 21 If OG3 = "M" Then GoTo 22 If OG3 = "N" Then GoTo 23 If OG3 = "O" Then GoTo 24 If OG3 = "P" Then GoTo 25 ' Stregone If OG3 = "Q" Then GoTo 26 If OG3 = "R" Then GoTo 27 If OG3 = "S" Then GoTo 28 ' Mago If OG3 = "T" Then GoTo 29 If OG3 = "U" Then GoTo 30 If OG3 = "V" Then GoTo 31 ' Speciali If OG3 = "W" Then GoTo 32 If OG3 = "X" Then GoTo 33 If OG3 = "Y" Then GoTo 34 If OG3 = "@" Then GoTo 35 If OG3 = "#" Then GoTo 36 ' Extra If OG3 = "Z" Then GoTo 37 If OG3 = "0" Then GoTo 38 If OG3 = "(" Then GoTo 39 If OG3 = ")" Then GoTo 40 If OG3 = "[" Then GoTo 41 If OG3 = "]" Then GoTo 42 ' La bottega del vendicatore If OG3 = "{" Then GoTo 43 If OG3 = "}" Then GoTo 44 If OG3 = "?" Then GoTo 45 If OG3 = "?" Then GoTo 46 If OG3 = "?" Then GoTo 47 If OG3 = "?" Then GoTo 48 If OG3 = "?" Then GoTo 49 If OG3 = "?" Then GoTo 50 If OG3 = "|" Then GoTo 51 If OG3 = "\" Then GoTo 52 If OG3 = "!" Then GoTo 53 If OG3 = "?" Then GoTo 54 If OG3 = "?" Then GoTo 55 If OG3 = "?" Then GoTo 56 '-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/ G4: GoTo L_N16 R_L_N16: CCC = 3 ' If OGG4 = 0 Then GoTo VISUALIZZA ' Bottega Mistica If OG4 = "1" Then GoTo 1 If OG4 = "2" Then GoTo 2 If OG4 = "3" Then GoTo 3 If OG4 = "4" Then GoTo 4 If OG4 = "5" Then GoTo 5 If OG4 = "6" Then GoTo 6 If OG4 = "7" Then GoTo 7 If OG4 = "8" Then GoTo 8 If OG4 = "9" Then GoTo 9 If OG4 = "A" Then GoTo 10 If OG4 = "B" Then GoTo 11 If OG4 = "C" Then GoTo 12 If OG4 = "D" Then GoTo 13 If OG4 = "E" Then GoTo 14 If OG4 = "F" Then GoTo 15 If OG4 = "G" Then GoTo 16 If OG4 = "H" Then GoTo 17 If OG4 = "I" Then GoTo 18 If OG4 = "J" Then GoTo 19 If OG4 = "K" Then GoTo 20 ' Fabbro If OG4 = "L" Then GoTo 21 If OG4 = "M" Then GoTo 22 If OG4 = "N" Then GoTo 23 If OG4 = "O" Then GoTo 24 If OG4 = "P" Then GoTo 25 ' Stregone If OG4 = "Q" Then GoTo 26 If OG4 = "R" Then GoTo 27 If OG4 = "S" Then GoTo 28 ' Mago If OG4 = "T" Then GoTo 29 If OG4 = "U" Then GoTo 30 If OG4 = "V" Then GoTo 31 ' Speciali If OG4 = "W" Then GoTo 32 If OG4 = "X" Then GoTo 33 If OG4 = "Y" Then GoTo 34 If OG4 = "@" Then GoTo 35 If OG4 = "#" Then GoTo 36 ' Extra If OG4 = "Z" Then GoTo 37 If OG4 = "0" Then GoTo 38 If OG4 = "(" Then GoTo 39 If OG4 = ")" Then GoTo 40 If OG4 = "[" Then GoTo 41 If OG4 = "]" Then GoTo 42 ' La bottega del vendicatore If OG4 = "{" Then GoTo 43 If OG4 = "}" Then GoTo 44 If OG4 = "?" Then GoTo 45 If OG4 = "?" Then GoTo 46 If OG4 = "?" Then GoTo 47 If OG4 = "?" Then GoTo 48 If OG4 = "?" Then GoTo 49 If OG4 = "?" Then GoTo 50 If OG4 = "|" Then GoTo 51 If OG4 = "\" Then GoTo 52 If OG4 = "!" Then GoTo 53 If OG4 = "?" Then GoTo 54 If OG4 = "?" Then GoTo 55 If OG4 = "?" Then GoTo 56 '-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/ FINE RICERCA OGGETTI -*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/-*/ ULTIMO: GoTo L_N17 '\\\\\\\\\\\\\\\\\\\ Inserimento valori (OGGETTO) nelle Dim -> (A ... M) 1: XXXX = XXXX - 1 ' D = 320 I = 1890 J = "Ascia" K = "Attacco" L = 3 M = "Bottega Mistica - Pu? essere forgiata e migliorata dal Fabbro" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 2: XXXX = XXXX - 1 ' C = 100 I = 1160 J = "Scudo di legno" K = "Attacco" L = 4 M = "Bottega Mistica - Pu? essere forgiato e migliorato dal Fabbro" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 3: XXXX = XXXX - 1 ' C = 120 D = 150 I = 1629 J = "Scudo con spade" K = "Attacco" L = 3 M = "Bottega Mistica - Pu? essere forgiato e migliorato dal Fabbro" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 4: XXXX = XXXX - 1 ' D = 180 I = 2100 J = "Spade" K = "Attacco" L = 5 M = "Bottega Mistica - Possono essere forgiate e migliorate dal Fabbro" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 5: XXXX = XXXX - 1 ' A = 200 B = 1000 D = 500 G = 300 I = 5520 J = "Armatura" K = "Attacco" L = 2 M = "Bottega Mistica - Pu? essere forgiata e migliorata dal Fabbro" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 6: XXXX = XXXX - 1 ' A = "SE MUORI + VITA 2000" I = 6700 J = "Teschio rosso" K = "Attacco" L = 2 M = "Bottega Mistica - Pu? essere migliorato dallo Stregone" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 7: XXXX = XXXX - 1 ' A = "SE MUORI + VITA 3000" I = 14850 J = "Teschio grigio" K = "Attacco" L = 3 M = "Bottega Mistica - Pu? essere migliorato dallo Stregone" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 8: XXXX = XXXX - 1 ' A = "SE MUORI + VITA 5000" I = 32600 J = "Teschio con ossa infuocate" K = "Attacco" L = 4 M = "Bottega Mistica - Pu? essere migliorato dallo Stregone" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 9: XXXX = XXXX - 1 ' A = 400 I = 2370 J = "Pozione verde" K = "Attacco" L = 3 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 10: XXXX = XXXX - 1 ' B = 550 I = 3912.5 J = "Pozione lilla" K = "Attacco" L = 5 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 11: XXXX = XXXX - 1 ' A = 410 B = 600 I = 11968 J = "Pozione viola" K = "Attacco" L = 8 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 12: XXXX = XXXX - 1 ' B = 200 E = 1200 I = 1880 J = "Teschio pirata arancione" K = "Attacco" L = 1 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 13: XXXX = XXXX - 1 ' B = 400 E = 3000 I = 4360 J = "Teschio pirata azzurro" K = "Attacco" L = 1 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 14: XXXX = XXXX - 1 ' B = 800 E = 5000 I = 7320 J = "Teschio pirata nero" K = "Attacco" L = 1 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 15: XXXX = XXXX - 1 ' B = 800 E = 5000 G = 500 I = 7970 J = "Pentola d'oro" K = "Attacco" L = 1 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 16: XXXX = XXXX - 1 ' H = "*2" I = 2050 J = "Asso di picche del pirata" K = "Dipende dalla magia scelta" L = 1 M = "Bottega Mistica - Pu? essere migliorato dal Mago, si attiva solo durante le magie" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 17: XXXX = XXXX - 1 ' H = "*3" I = 6000 J = "Drago fumante" K = "Dipende dalla magia scelta" L = 2 M = "Bottega Mistica - Pu? essere migliorato dal Mago, si attiva solo durante le magie" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 18: XXXX = XXXX - 1 ' C = 220 H = "*2" I = 9432 J = "Mostro guerriero" K = "Dipende dalla magia scelta" L = 4 M = "Bottega Mistica - Pu? essere migliorato dal Mago, si attiva solo durante le magie" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 19: XXXX = XXXX - 1 ' E = 6000 G = 1000 I = 8950 J = "Energia Mistica" K = "Attacco" L = 1 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 20: XXXX = XXXX - 1 ' A = 100 B = 300 D = "10 | -500 al nemico" G = 500 I = 16560 J = "Cappello della strega" K = "Attacco" L = 8 M = "Bottega Mistica" ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 21: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 22: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 23: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 24: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 25: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 26: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 27: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 28: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 29: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 30: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 31: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 32: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 33: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 34: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 35: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 36: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 37: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 38: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 39: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 40: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 41: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 42: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 43: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 44: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 45: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 46: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 47: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 48: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 49: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 50: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 51: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 52: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 53: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 54: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 55: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '------- 56: XXXX = XXXX - 1 ' 'VALORI ' If CCC = 0 Then GoTo G2 Else If CCC = 1 Then GoTo G3 Else If CCC = 2 Then GoTo G4 Else If CCC = 3 Then GoTo ULTIMO '----------------------------- GoTo L_N17 '++++++++++++++++++++++++++++++++ L_N14: Label16 = A: Label16 = Label16 Label17 = B: Label17 = Label17 Label18 = C: Label18 = Label18 Label19 = D: Label19 = Label19 Label20 = E: Label20 = Label20 Label21 = F: Label21 = Label21 Label22 = G: Label22 = Label22 Label23 = H: Label23 = Label23 Label24 = I: Label24 = Label24 Label25 = J: Label25 = Label25 Label26 = K: Label26 = Label26 Label27 = L: Label27 = Label27 Label28 = M: Label28 = Label28 Svuota = 1 GoTo SV SV1: GoTo R_L_N14 '*** L_N15: Label43 = A: Label43 = Label43 Label44 = B: Label44 = Label44 Label45 = C: Label45 = Label45 Label46 = D: Label46 = Label46 Label47 = E: Label47 = Label47 Label48 = F: Label48 = Label48 Label49 = G: Label49 = Label49 Label50 = H: Label50 = Label50 Label51 = I: Label51 = Label51 Label52 = J: Label52 = Label52 Label53 = K: Label53 = Label53 Label54 = L: Label54 = Label54 Label29 = M: Label29 = Label29 Svuota = 2 GoTo SV SV2: GoTo R_L_N15 '*** L_N16: Label69 = A: Label69 = Label69 Label70 = B: Label70 = Label70 Label71 = C: Label71 = Label71 Label72 = D: Label72 = Label72 Label73 = E: Label73 = Label73 Label74 = F: Label74 = Label74 Label75 = G: Label75 = Label75 Label76 = H: Label76 = Label76 Label77 = I: Label77 = Label77 Label78 = J: Label78 = Label78 Label79 = K: Label79 = Label79 Label80 = L: Label80 = Label80 Label81 = M: Label81 = Label81 Svuota = 3 GoTo SV SV3: GoTo R_L_N16 '*** L_N17: Label95 = A: Label95 = Label95 Label96 = B: Label96 = Label96 Label97 = C: Label97 = Label97 Label98 = D: Label98 = Label98 Label99 = E: Label99 = Label99 Label100 = F: Label100 = Label100 Label101 = G: Label101 = Label101 Label102 = H: Label102 = Label102 Label103 = I: Label103 = Label103 Label104 = J: Label104 = Label104 Label105 = K: Label105 = Label105 Label106 = L: Label106 = Label106 Label55 = M: Label55 = Label55 Svuota = 4 '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ SV: A = "": B = "": C = "": D = "": E = "": F = "": G = "": H = "": I = "": J = "": K = "": L = "": M = "" ' If Svuota = 1 Then GoTo SV1 Else If Svuota = 2 Then GoTo SV2 Else If Svuota = 3 Then GoTo SV3 Else If Svuota = 4 Then GoTo VISUALIZZA '---------------------------- VISUALIZZA: ' /*-*-*//*--*/ With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub `come ti ho detto su win 10 una cartella normale non contiene il file desktop.ini, quindi non lo vedi perché non c'è, comunque non lo puoi creare manualmente, o meglio, lo puoi fare ma non funziona, occorre dargli gli attributi HSA e non so come si faccia, comunque per fare prove garda qui https://www.ideepercomputeredinternet.com/2017/01/cambiare-icone-cartelle.html
Non centra nulla con la domanda ma solo per la cronaca:
fabio, ma a cosa serve allegare tutto quel codice senza spiegazioni e senza un file su cui testarlo ?
il codice vba per modificare l'icona è il seguente
`Sub Change_Folder_Icon() Const ReadOnly = 1 Const Hidden = 2 Const System = 4 Dim FSO As Object Dim folderPath As String, DesktopIni As String folderPath = "F:\Download\A" ' cartella su cui vui cambiare l'icona If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" DesktopIni = folderPath & "Desktop.ini" Set FSO = CreateObject("Scripting.FileSystemObject") With FSO .GetFolder(folderPath).Attributes = System If .FileExists(DesktopIni) Then .DeleteFile DesktopIni With .CreateTextFile(DesktopIni, True) .WriteLine "[.ShellClassInfo]" .WriteLine "IconFile=F:\Documenti\Immagini\Icone\BICYCLE.ICO" 'percorso icona .WriteLine "IconIndex=0" .WriteLine "InfoTip=Icona modificata" ' tip opzionale .Close End With .GetFile(DesktopIni).Attributes = Hidden End With End Sub`u win 10 non è così
E' così anche in Win10.
Ho fatto anche io le prove su un codice simile.
Comunque in effetti tutto quel codice zeppo di GoTo mi fa pensare che hai tradotto un vecchio Gwbasic in VBA. Di solito non è una traduzione facile anche perchè l'ambiente Excel offre metodi e proprietà molto diversi e si usano tecniche più adatte.
No nessuna traduzione è di mia pura inventiva di 3 giorni fa … ma sto facendo anche altra roba nel frattempo, ma era solo una piccola parentesi per farvi capire quanto sono (pazzo!).
Ora provo il codice (Patel) vba!!
Scusate ma se tutto questo riguarda il file DESKTOP.INI ma allora non basterebbe prelevare il file "automatico" desktop che possiedo, ... dovrebbe averle lui le informazioni e non c'è bisogno di crearlo (devo solo farvelo avere o la mia idea non è valida)?
Però perché quando ho compresso la cartella il file in questione (desktop.ini) non agisce sui vostri pc (esempio vecchio frac che mi ha scritto di non vedere le icone sulle cartelle)??
Ho problemi con il percorso della cartella che contiene le icone
Private Sub Workbook_Open() Const ReadOnly = 1 Const Hidden = 2 Const System = 4 indirizzo = ActiveWorkbook.Path Dim FSO As Object Dim folderPath As String, DesktopIni As String folderPath = indirizzo & "\Lanciatore" ' cartella su cui vui cambiare l'icona If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" DesktopIni = folderPath & "Desktop.ini" Set FSO = CreateObject("Scripting.FileSystemObject") With FSO .GetFolder(folderPath).Attributes = System If .FileExists(DesktopIni) Then .DeleteFile DesktopIni With .CreateTextFile(DesktopIni, True) .WriteLine "[.ShellClassInfo]" .WriteLine "IconFile=indirizzo & \icone\icone.ico" 'percorso icona .WriteLine "IconIndex=0" .WriteLine "InfoTip=Icona modificata" ' tip opzionale .Close End With .GetFile(DesktopIni).Attributes = Hidden End With End SubHo problemi con il percorso della cartella
Cioè? Quali problemi? Inoltre nel codice:
folderPath = indirizzo & "\Lanciatore" ' cartella su cui vui cambiare l'icona If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"l'If è del tutto inutile, considerato che un attimo prima hai impostato tu manualmente il contenuto di "folderPath".
Confeziona questa variabile già con lo slash ed eviti un test inutile.
perché quando ho compresso la cartella il file in questione (desktop.ini) non agisce sui vostri pc
Probabilmente non hai incluso nel file compresso nè il file desktop.ini modificato, nè gli altri che ho citato sopra (thumb.db e il file ico) che sono nascosti.
Io credevo che il problema fosse solo questo :
.WriteLine "IconFile=indirizzo & \icone\icone.ico" 'percorso iconaMa questo scrive la parola "indirizzo" nel file invece che l'indirizzo vero e proprio. Non hai usato correttamente le virgolette!
.WriteLine "IconFile=" & indirizzo & "\icone\icone.ico" 'percorso iconaE' così anche in Win10.
Nel mio non è presente in alcuna cartella salvo il Desktop
Dovrebbe esserci se personalizzi la cartella, infatti. Però posso credere che Microsoft riesca a fare le cose più strane 🙂
Non mi funziona ho scritto questo:
Prima creava il file all'interno della cartella "ricevente" adesso invece lo crea nella cartella principale.
Ci sto provando ma questi codici mi sono estranei e non riesco a capire come devo muovermi.
Ho tolto la "if" come suggerito inserendo " ' " per evitare il comando ma è peggio!
Private Sub Workbook_Open() Const ReadOnly = 1 Const Hidden = 2 Const System = 4 indirizzo = ActiveWorkbook.Path Dim FSO As Object Dim folderPath As String, DesktopIni As String folderPath = indirizzo & "\Lanciatore" ' cartella su cui vui cambiare l'icona 'If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" DesktopIni = folderPath & "Desktop.ini" Set FSO = CreateObject("Scripting.FileSystemObject") With FSO .GetFolder(folderPath).Attributes = System If .FileExists(DesktopIni) Then .DeleteFile DesktopIni With .CreateTextFile(DesktopIni, True) .WriteLine "[.ShellClassInfo]" .WriteLine "IconFile=" & indirizzo & "\icone\icone.ico" 'percorso icona .WriteLine "IconIndex=0" .WriteLine "InfoTip=Icona modificata" ' tip opzionale .Close End With .GetFile(DesktopIni).Attributes = Hidden End With End Sub
Login
Registrati
