File di destinazione esportazione

Allega un paio di screenshot del filtro di esportazione che hai creato e dello script di esportazione

In allegato gli screenshot del filtro e il codice dello script di esportazione.

Quello che interesserebbe a me è la possibilità di modificare via script il nome del file di destinazione oppure che al click del pulsante esporta venga chiesto dove e/o con che nome si vuole salvare il file di modo da poter inserire un riferimento dell'ordine nel nome del file.

Option Explicit
Dim aCapo
aCapo = VbCrlf

If RowItem.DocType = 6 Then

Dim TipoRecord
Dim DataDoc
Dim NDoc
Dim CodCliente
Dim SpedRagSoc1
Dim SpedRagSoc2
Dim SpedIndirizzo
Dim SpedCAP
Dim SpedComune
Dim SpedProvincia
Dim Articolo
Dim Quantita
Dim DataConsegna

TipoRecord = "TES"
DataDoc = RowItem.DocDate
NDoc = RowItem.DocNumber
CodCliente = 951
SpedRagSoc1 = RowItem.CustomField(30)
If Not Len(Trim(RowItem.CustomField(42))) = 0 Then
SpedRagSoc2 = "Referente: " & RowItem.CustomField(42)
Else
SpedRagSoc2 = ""
End If
SpedIndirizzo = RowItem.CustomField(32)
SpedCAP = RowItem.CustomField(34)
SpedComune = RowItem.CustomField(36)
SpedProvincia = RowItem.CustomField(38)
Articolo = ""
Quantita = ""
DataConsegna = Date()

If Not Len(Trim(RowItem.CustomField(55))) = 0 Then
SpedRagSoc1 = RowItem.Destination.Name
SpedIndirizzo = RowItem.Destination.Address
SpedCAP = RowItem.Destination.ZipCode
SpedComune = RowItem.Destination.City
SpedProvincia = RowItem.Destination.Province
End If

Dim RigaTestata
RigaTestata = TipoRecord & ";" & DataDoc & ";" & NDoc & ";" & CodCliente & ";""" & SpedRagSoc1 & """;""" & SpedRagSoc2 & """;""" & SpedIndirizzo & """;""" & SpedCAP & """;""" & SpedComune & """;""" & SpedProvincia & """;" & Articolo & ";" & Quantita & ";" & DataConsegna
Rdy.ResponseWrite (RigaTestata)

Dim OrderRow
For Each OrderRow in RowItem.DocRows
If Not Len(Trim(OrderRow.CustomField(15))) = 0 Then

TipoRecord = "RIG"
DataDoc = RowItem.DocDate
NDoc = RowItem.DocNumber
CodCliente = 951
SpedRagSoc1 = ""
SpedRagSoc2 = ""
SpedIndirizzo = ""
SpedCAP = ""
SpedComune = ""
SpedProvincia = ""
Articolo = CodArt5Digits(OrderRow.CustomField(15))
Quantita = OrderRow.CustomField(30)
DataConsegna = Date()

Dim RigaOrdine
RigaOrdine= TipoRecord & ";" & DataDoc & ";" & NDoc & ";" & CodCliente & ";" & SpedRagSoc1 & ";" & SpedRagSoc2 & ";" & SpedIndirizzo & ";" & SpedCAP & ";" & SpedComune & ";" & SpedProvincia & ";" & Articolo & ";" & Quantita & ";" & DataConsegna
Rdy.ResponseWrite (aCapo)
Rdy.ResponseWrite (RigaOrdine)
End If
Next
Else
Rdy.ResponseWrite ("Errore tipo documento!!!")
End If



Function CodArt5Digits(codArt)
Dim pos
pos = inStr(codArt, ".")
Dim cbp
cbp = pos-1

Dim fullCode
fullCode = codArt

If cbp > 0 Then
Select Case cbp
Case 5
fullCode = fullCode
Case 4
fullCode = " " & fullCode
Case 3
fullCode = "  " & fullCode
Case 2
fullCode = "   " & fullCode
Case 1
fullCode = "    " & fullCode
End Select
End If

CodArt5Digits = fullCode
End Function

Purtroppo non e' possibile modificare il nome del file di export da script  

Citazione:
oppure che al click del pulsante esporta venga chiesto dove e/o con che nome si vuole salvare il file

Avevo già provato sperando che non trovando la destinazione mi permettesse di indicarlo tramite una finestra di dialogo ma se lascio il campo "File di destinazione" vuoto ricevo un errore gestito che recita:
"Nome file di destinazione non specificato. Esportazione non possibile"
mentre, se specifico solo una parte del path (es. c:\nomecartella\) si verifica un errore di tipo:
"Operazione non prevista" (Impossibile trovare il percorso)

Citazione:
"Nome file di destinazione non specificato. Esportazione non possibile"