Se carico un file txt da un altro percorso... come faccio a ritornare ad operare con altri txt nel path originale?

[lotto_tom75]

Cerco di spiegarmi meglio...

Ho questa riga di codice

numerivoluti = ScegliFile(".\",".txt","filetxtvoluto")

Se filetxtvoluto si trova in un path diverso da quello dello script richiamante la riga di codice come faccio a tornare a scrivere su altri file txt in run time che devono trovarsi nello stesso percorso dello script anzichè in quello del file caricato?

es. visivo...

c:\cartellafiletxt\filetxtvoluto.txt
c:\boxtestscript\file1.txt
c:\boxtestscript\file2.txt

io devo caricare filetxtvoluto.txt ma poi tornare a scrivere in c:\boxtestscript e non in c:\cartellafiletxt mentre adesso in run time mi scrive nell'ultima cartella richiamata da sceglifile ovvero appunto, secondo questo esempio, in c:\cartellafiletxt


Domanda da pasticcere lo so... , ma per adesso riesco a risolvere solo lasciando il filetxtvoluto da caricare nella stessa cartella dello script richiamante...

 

[claudio8]

numerivoluti = ScegliFile(".\",".txt","filetxtvoluto")

scrivotx1= ScegliFile("c:\boxtestscript",".txt","file1.txt")

 

[lotto_tom75]

numerivoluti = ScegliFile(".\",".txt","filetxtvoluto")

scrivotx1= ScegliFile("c:\boxtestscript",".txt","file1.txt")

Ciao claudio8 grazie, ma come ho scritto sopra mi servirebbe ritornare su c:\boxtestscript in run time ovvero senza finestre di input... ma del tutto in automatico

 

[claudio8]

numerivoluti = ScegliFile(".\",".txt","filetxtvoluto")

scrivotx1= ScegliFile("c:\boxtestscript",".txt","file1.txt")

senza inputbox
scrivi solo

sfile = "c:\boxtestscript\file1.txt" ' fai le relativo alle operazioni x detto file

quando devi usare l'altro file
sfile= "c:\boxtestscript\file2.txt" ' fai le ulteriori operazioni
se devi tornare a leggere in filetxtvoluto
sfile= "c:\percorso\filetxtvoluto.txt"
a meno di errori, questa dovrebbe essere la logica operativa

 

[lotto_tom75]

senza inputbox
scrivi solo

sfile = "c:\boxtestscript\file1.txt" ' fai le relativo alle operazioni x detto file

quando devi usare l'altro file
sfile= "c:\boxtestscript\file2.txt" ' fai le ulteriori operazioni
se devi tornare a leggere in filetxtvoluto
sfile= "c:\percorso\filetxtvoluto.txt"
a meno di errori, questa dovrebbe essere la logica operativa

Ciao claudio infatti... avevo pensato anche io lo fosse e avevo provato anche a fare così... prima di postare l'help ma mi rimane ad operare in run time sempre nell'ultima cartella aperta da sceglifile... . Ad ogni modo per adesso ho risolto cancellando e ricreando i file txt che mi necessitano nella seconda cartella aperta da sceglifile.

 

[claudio8]

Non mi pare che sia come dici , con il costrutto sotto apro il file o un file a scelta di una qualsiasi cartella e lo riscrivo nel file specifico avente dir e nome sFileScrittura = "c:\mario1.txt"

Option Explicit
Sub Main
    Dim sFileLettura,sFileScrittura
    Dim k ,testo
    testo = ScegliFile(".\",".txt","mario0")   
    'sFileLettura = "c:\mario0.txt"
      sFileScrittura = "c:\mario1.txt"
    Call Messaggio("Lettura file di testo")
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto(testo,aRighe)
       For k = 0 To UBound(aRighe)
        If aRighe(k) <> "" Then
        Scrivi aRighe(k)
        Call ScriviFile (sFileScrittura,aRighe(k),-1,True)
        End If
    Next
End Sub

 

[lotto_tom75]

Non mi pare che sia come dici , con il costrutto sotto apro il file o un file a scelta di una qualsiasi cartella e lo riscrivo nel file specifico avente dir e nome sFileScrittura = "c:\mario1.txt"

Option Explicit
Sub Main
    Dim sFileLettura,sFileScrittura
    Dim k ,testo
    testo = ScegliFile(".\",".txt","mario0")  
    'sFileLettura = "c:\mario0.txt"
      sFileScrittura = "c:\mario1.txt"
    Call Messaggio("Lettura file di testo")
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto(testo,aRighe)
       For k = 0 To UBound(aRighe)
        If aRighe(k) <> "" Then
        Scrivi aRighe(k)
        Call ScriviFile (sFileScrittura,aRighe(k),-1,True)
        End If
    Next
End Sub

Ok claudio provo anche con questa tua soluzione di esempio e ti faccio sapere. Grazie