Estrazione sincrona archivio compresso con vba access

darioV

il 28 dic 2019, 19:12

8 risposte

darioV

Utente Attivo

Iscritto da: mar, 2019

Messaggi:: 60

Estrazione sincrona archivio compresso con vba access

28 dic 2019, 19:30

Buongiorno a tutti, tramite vba estraggo il contenuto di un'archivio .zip in una cartella predefinita per poi "leggere" ad uno ad uno i file o cartelle estratte per rinominarle e fare altre operazioni.
Il problema è che l'esecuzione dell'estrazione tramite Winrar avviene in modo asincrono, il resto del codice prosegue mentre l'estrazione è ancora in corso e durante la ricerca tra i file o cartelle estratti non vengono trovati tutti.
il codice che utilizzo è il seguente


Dim RarIt As String
   	Dim Source As String
   	Dim Desti As String
    	Dim WinRarPath As String
    	Percorso = "E:\Scaricati\"
	WinRarPath = "C:\Program Files\WinRar\"
    	mypath = percorso
	MioFile = mypath & "*.*"
	myname = Dir(MioFile, vbDirectory)
	...
	
    	Source = "E:\Scaricati\" & myname
   	Desti = "J:\xxxx\xxxxx\extr\"
        RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " X " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), VbNormalFocus)

Ho trovato il seguente tread
https://www.iprogrammatori.it/forum-programmazione/access/far-andare-avanti-codice-solo-file-t38225.html
in cui si parla di wshell ma non riesco a costruire la stringa in modo corretto, così wshell.run mi genera errore

450 numero errato di argomenti o assegnazione di proprietà non valida

Mi spiegate dove sbaglio?

8 Risposte

@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8752
Re: Estrazione sincrona archivio compresso con vba access
28 dic 2019, 19:45
Non stai usando nulla del link che hai citato lo sai vero...?
In quel link si fa appunto cenno al metodo RUN dell'oggetto Windows Scripring Shell... che viene istanziato con il CreateObject...
Tu in questo codice invece usi la Shell nativa che NON È SINCRONA.

Detto questo mi pare, ad occhio che manchi qualche spazio nella stringa.... ma se non la stampi in finestra immediata prima di lanciarla fai fatica sicuramente a vedere le possibili anomalie.
D
darioV
Utente Attivo
Iscritto da
mar, 2019
Messaggi:
60
Re: Estrazione sincrona archivio compresso con vba access
29 dic 2019, 14:21
@Alex ha scritto:
Non stai usando nulla del link che hai citato lo sai vero...?
In quel link si fa appunto cenno al metodo RUN dell'oggetto Windows Scripring Shell... che viene istanziato con il CreateObject...
in realtà l'ho fatto, ho solo dimenticato di inserirlo nel messagio
```
Dim Source As String
    Dim Desti As String
    Dim WinRarPath As String
    Dim wshell As Object
    Set wshell = VBA.CreateObject("Wscript.Shell")
    Percorso = "E:\Scaricati\"
    WinRarPath = "C:\Program Files\WinRar\"
```
Detto questo mi pare, ad occhio che manchi qualche spazio nella stringa.... ma se non la stampi in finestra immediata prima di lanciarla fai fatica sicuramente a vedere le possibili anomalie.
ho provato a stamparla nella finestra immediata e ottengo
```
"C:\Program Files\WinRar\WinRar.exe" X "E:\Scaricati\file.zip" "J:\Dario\xxxx\xxxxx\extr\"
```
mi sembra a posto ma da sempre errore 450
@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8752
Re: Estrazione sincrona archivio compresso con vba access
29 dic 2019, 16:02
Hai scordato di inserirlo...?
Ma poi nel.codice usi Shell... e quello lo hai scordato o è un errore...?

Quella stringa se la usi da Cmd funziona...?

darioV

Utente Attivo

Iscritto da: mar, 2019

Messaggi:: 60

Re: Estrazione sincrona archivio compresso con vba access

29 dic 2019, 17:10


Dim RarIt As String
   	Dim Source As String
   	Dim Desti As String
    	Dim WinRarPath As String
    	Dim wshell As Object
        Set wshell = VBA.CreateObject("Wscript.Shell")
        
    	Percorso = "E:\Scaricati\"
	WinRarPath = "C:\Program Files\WinRar\"
    	mypath = percorso
	MioFile = mypath & "*.*"
	myname = Dir(MioFile, vbDirectory)
	...
	
    	Source = "E:\Scaricati\" & myname
   	Desti = "J:\xxxx\xxxxx\extr\"
   	stringaWR = Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " X " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34)
        Debug.Print stringaWR
        
        wshell.Run stringaWR, vbNormalFocus, vbHide, True

con la stampa di stringaWR ottengo

"C:\Program Files\WinRar\WinRar.exe" X "E:\Scaricati\file.zip" "J:\Dario\xxxx\xxxxx\extr\"

e con wshell.run mi da errore 450

@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8752
Re: Estrazione sincrona archivio compresso con vba access
30 dic 2019, 12:02
Quella stringa funziona da riga di comando...?
D
darioV
Utente Attivo
Iscritto da
mar, 2019
Messaggi:
60
Re: Estrazione sincrona archivio compresso con vba access
30 dic 2019, 14:39
Non sono pratico della riga di comando, cmq sono riuscito così perchè con C:\Program Files\WinRar\WinRar.exe ottengo come risposta "C:\Program" non è riconosciuto come comando interno o esterno
```
C:\Program Files>WinRar\winRar.exe X E:\Scaricati\file.zip J:\Dario\xxxx\xxxxx\extr\
```
e ottengo l'estrazione
D
darioV
Utente Attivo
Iscritto da
mar, 2019
Messaggi:
60
Re: Estrazione sincrona archivio compresso con vba access
31 dic 2019, 10:41
Ho trovato una soluzione provvisoria fintanto che non riesco a utilizzare wshell, inserendo una msgbox nel codice appena a shell
D
darioV
Utente Attivo
Iscritto da
mar, 2019
Messaggi:
60
Re: Estrazione sincrona archivio compresso con vba access
03 gen 2020, 16:15
Questo da riga di comando finziona
```
C:\Program Files\WinRAR>WinRar.exe X E:\Scaricati\20191226_ExportFattureRicevute.zip J:\Dario\_Lavoro\_FATTURAZIONE\_Versione12\_ExportFattureRicevute\extr\
```

Devi accedere o registrarti per scrivere nel forum

8 risposte