esecuzione file batch con vba access

buongiorno a tutti.
Premetto che mi sono letto tutto quanto finora detto sui diversi forum al riguardo senza venirne a capo.
iIl problema è questo:
sto realizzando un piccolo database e, per effettuare l'importazioni di alcuni dati che necessito da un file .txt, ho approntato un batch che mi sostituisce i caratteri "> "(maggiore + spazio) presenti nelle diverse righe del txt con i caratteri ">;". Per quanto il file funzioni perfettamente, quanto cerco di azionarlo tramite VBA non fa quello per cui è stato creato. Per meglio dire, apre la shell di dos ma non effettua la sostituizione dei caratteri come richiesto (se lo lancio cliccandoci sopra direttamente, invece, funziona!).
Il codice con cui sto cercando di farlo funzionare è questo :

Private Sub Import1()

Dim Percorso As String

Percorso = Application.CurrentProject.Path & "\changetxt.bat"

Call Shell(Percorso, 1)

End Sub

qualcuno mi sa aiutare?
Grazie

Ma perché usi un batch e non un semplice codice vba per la sostituzione?

Perchè non ho idea di come fare?
No realmente, è l'unico modo che mi è venuto in mente.
Purtroppo sono solo un autodidatta e finora non ho ancora visto altro metodo

Beh dovresti provare a farlo in vba perché non è difficile con un po' di impegno e di studio, necessari in questo campo.

In ogni caso, cosa c'è nel batch? Mostra il codice. E dove sta il file da modificare?

Questo è il codicino del batch e il file da modificare, come si vede dal codice, è in una cartella adiacente chiamata "Files"

powershell -Command "(gc Files/mycontent.txt) -replace '> ','>;'|sc Files/mycontent.txt

I comandi con cui attivi PowerShell hanno dei parametri con single quotation marks (') che vanno duplicati se racchiusi fra doppi apici ovvero double quotation marks (") posti solo l'inizio della stringa:
https://docs.microsoft.com/en-us/pow...powershell-7.1
https://stackoverflow.com/questions/...ershell-comman

In ogni caso, in VBA, funzioni che effettuano la sostituzione (in un file) di una stringa in un'altra, ne esistono vari esempi sul web, te ne indico alcuni:
https://www.thespreadsheetguru.com/t...ames-in-folder
https://stackoverflow.com/questions/...eas-close-file
https://stackoverflow.com/questions/...rd-using-macro
Textfile loop to find/replace characters
https://www.vbforums.com/showthread....le-path-by-VBA

per prima cosa ringrazio sia Antonio G che willy55 per i loro gentilissimi riscontri. Ora proverò a vedere i link che willy mi ha suggerito. Spero di trovare la soluzione al problemino. Grazie ancora e buona giornata

Ho fatto le prove necessarie e la soluzione giusta è proprio una di quelle suggerite da willy55.
Il codice che ho ricavato è il seguente

    Dim objFSO As Object
    Dim objFil As Object
    Dim objFil2 As Object
    Dim StrFileName As String
    Dim StrFolder As String
    Dim SstrAll As String

On Error GoTo Errore

    Set objFSO = CreateObject("scripting.filesystemobject")
    StrFolder = Application.CurrentProject.Path & "/Files/"
    StrFileName = Dir(StrFolder & "mycontent.txt")

    Do While StrFileName <> vbNullString
        Set objFil = objFSO.opentextfile(StrFolder & StrFileName)
        strAll = objFil.readall
        objFil.Close
        Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName)
        objFil2.Write Replace(strAll, "> ", ">;")
        objFil2.Close
        StrFileName = Dir
    Loop
    
ErrorExit:
    Exit Sub

Errore:
    MsgBox Err.Description, vbExclamation, "OOps! Errore Nr- " & Err.Number
    Resume ErrorExit

Grazie ancora per il valido aiuto.

Ti avevo detto che si faceva in vba con poche righe