Pagina precedente | 1 2 3 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Macro per Rinominare Files

Ultimo Aggiornamento: 24/10/2023 12:44
Post: 831
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
23/10/2023 22:13

questa macro che avete realizzato tu e Dodo è una bellissima utility che per chi non l'avesse capito permette di recuperare files audio e video dalla cache dei principali browsers, per uso offline, davvero utilissima.
ci sarebbe da risolvere un problemino che però non è di competenza Excel
in diversi casi non è facile interpretare le intestazioni dei files ed allora, a proposito, ho trovato in rete un giocattolo pazzesco
TRID è un utility che cerca velocemente 16600 tipi di files sconosciuti
https://mark0.net/soft-trid-e.html
sarebbe per me da impegnarmi a costruire una connessione fra TRID, PowerBasic (o Excel, non so) e i files, per vedere l'effetto che fa.
Slurp, ma ci vuole tempo

Leo
[Modificato da L2018 23/10/2023 22:18]

LEO
https://t.me/LordBrum
Post: 1.367
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Veteran
Excel 2016-32bit Win11
OFFLINE
24/10/2023 00:35

Mai istigare [SM=g27835] , la butto li per rimanere con Excel; e non serve eliminare dato che rinomina tutto:
Option Explicit
Sub Leo_Trid()
    Dim mFld As Object
    Dim mDir As String
    Dim PathTrid As String
    PathTrid = "E:\Downloads\Mar 2023\TrID.exe"   'percorso di TrID e TrIDDefs (da aggiustare)
    Set mFld = Application.FileDialog(msoFileDialogFolderPicker)
    If mFld.Show Then mDir = mFld.SelectedItems(1)
    If mDir = "" Then Exit Sub                    'esci se non si seleziona una cartella
    Shell "cmd /c dir " & """" & mDir & """" & " /s /b | " & """" & PathTrid & """" & " -ce -@" 'compresi parametri TrID
    MsgBox "Fatto!"
    Set mFld = Nothing
End Sub
[Modificato da rollis13 24/10/2023 00:42]

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 836
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
24/10/2023 09:00

Re:
rollis13, 24/10/2023 00:35:

Mai istigare [SM=g27835] , la butto li per rimanere con Excel; e non serve eliminare dato che rinomina tutto



Mai istigare....😃😃😃😃.....ottima battuta
anche tu non scherzi, ora mi tocca rispondere al tuo grido di programmazione....😃😃😃
non immagino che cosa tu abbia combinato
vedrò che cosa riesco a fare in giornata

Leo
[Modificato da L2018 24/10/2023 09:00]

LEO
https://t.me/LordBrum
Post: 3.572
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
24/10/2023 09:57

eheh "....mai istigare...."

aggiungerei ....mai istigare...Rollis👏👏👏

saluti



Domenico
Win 10 - Excel 2016
Post: 837
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
24/10/2023 10:37

Buongiorno a tutti e a Rollis, che ha fatto un lavoro istigato, inaspettato e davvero pregevole, sia pur nella compattezza del codice
sto ancora ridendo per la istigazione
son riuscito velocemente a predisporre la macro che ovviamente lavora benissimo
Avendo già usato TRID non mi sono completamente illuso che risolvesse tutto, infatti non sempre rinomina tutto, ma d'altra parte come potrebbe davvero riuscirci ?
Infatti il responso di TRID appare spesso probabilistico, restituisce una specie di stato quantico di ogni file.
Cercherò di leggere meglio i parametri da usare, ma penso che Rollis li abbia già scelti bene, l'importante è che il meccanismo funzioni.
Unirò la sua macro a quella di Domenico nello stesso XLSM.
E spero di non cadere nella tentazione di altre istigazioni.

Grazie

Leo

LEO
https://t.me/LordBrum
Post: 1.369
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Veteran
Excel 2016-32bit Win11
OFFLINE
24/10/2023 12:14

@L2018, non devi fare niente, quella mia macro sostituisce tutto quanto fatto fino ad ora. Ho già sfruttato io quello che poteva servire dalle vecchie versioni.
Se TrID non ti rinomina alcuni file è perché non ha proprio idea di che pesce pigliare e per i casi più semplici, come hai detto, è probabilistico. Infatti, nelle note è indicato che è possibile integrare il TrIDDefs con eventuali nuove estensioni non ancora classificate.
[Modificato da rollis13 24/10/2023 14:13]

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 838
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
24/10/2023 12:44

Re:
d'accordo Rollis, in questo momento sono occupato
ma vorrei fare 2 scansioni separate di un grosso gruppo di files per vedere caratteristiche peculiari sia del tuo TRID che della macro Dodo, perchè in una prima prova di ore fa ho notato qualcosa da capire.
Inoltre io mi istigo da solo e vorrei risolvere un'altra cosuccia:
i files PNG e quelli WEBP hanno una particolarità
ci sono 2 tipi di PNG e 2 tipi di WEBP
PNG puo' avere la sottostringa PNG sia esattamente all'inizio file, o meglio al 2° carattere (il primo è una e con 2 puntini sopra, e allora funzia) che a partire dal 4° carattere e allora non viene rinominato, chissà perchè
WEBP puo' avere la sottostringa WEBP sia a inizio esatto del file che a partire dal 4° carattere
allora TRID fa il furbo e se trova WEBP al 4 , rinomina il file come JPG, capito il furbone ?
in pratica esistono alcuni files immagine che ho trovato chiamarsi embedded, grazie ad una utility di nome ChromeCacheView della Nirsoft, che dà il nome giusto ad ogni cosa, ma che al momento non riesco a sfruttare piu di tanto.
e altro di simile che mi istiga per l'appunto ad approfondire pazzescamente la cosa, a costo di trovare ulteriori alternative ancor più sofisticate
CMQ io non butto niente, mi piace spaziare ed avere tutto, insomma capiscimi il vizio dell'indagine a oltranza usque ad folliam

ma sono sempre qui faccende permettendo

Leo
[Modificato da L2018 24/10/2023 13:55]

LEO
https://t.me/LordBrum
Vota: 15MediaObject5,00667 6
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 3 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
rinominare file (12 messaggi, agg.: 04/06/2019 17:05)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:14. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com