Questo sito usa i cookie per fornirti un'esperienza migliore. Se usi questo sito acconsenti all'utilizzo dei cookie.

OKCHIUDICookie policy
Autore Messaggio
crif76pv 25/05/2017 15:35 crif76pv

Esportare Url Immagine1 e copiare quel file in un'altra cartella

Salve,
riesco ad esportare l'url della foto principale... ma mi ritrovo 2 problemi

1- nell'url la foto ha un nome di questo tipo 140_553_553_32464110152.JPG
invece nelle cartelle di ready i file hanno nomi tipo 1234_123456.jpg


2 - avendo usato ready prima con un archivio, e negli ultimi mesi con un altro.... non capisco se delle foto sono rimaste nella cartella dell archivio 1 , e se i link vengono creati correttamente......  volendo creare una cartella a parte dove durante lo script la foto in questione viene appunto copiata
( ho usato comandi simili )

Set myFile=Rdy.File(Product.CustomField(870))
   myFile.CopyFileTo("D:\\FotoReady\\" & Fotografia.Link)
Fabio 25/05/2017 16:23 Campo libero: Fabio

Citazione:
1- nell'url la foto ha un nome di questo tipo 140_553_553_32464110152.JPG

Esattamente in che modo fate questa esportazione?


Citazione:
2 - avendo usato ready prima con un archivio, e negli ultimi mesi con un altro....

Questo e' un problema, se avete lavorato all'interno della stessa cartella, perche' adesso le cartelle con le foto possono contenere file che erano relative ad un archivio e non all'altro. Per questo e' impossibile poter rispondere alla domanda senza vedere direttamente gli archivi e le cartelle (cosa che potete eventualmente fare in teleassistenza con uno dei nostri tecnici)
crif76pv 25/05/2017 21:54 crif76pv

Con lo script di seguito..... preso da un vostro esempio nella guida...



Option Explicit

Dim IdTipoFoto
Dim UrlSito
Dim Fotografia
Dim PathImmagine
Dim myFile
Dim UrlFoto
Dim UrlFotoD

IdTipoFoto = 1
UrlSito = "http://www.infoplanet-store.it"
UrlFoto = "C:\Ready\ReadyPro\Archivi\Archivio\archivio_Files\Foto"
UrlFotoD = "D:\FotoReady"

PathImmagine=""
For Each Fotografia In Product.Photos
   If Fotografia.IdType = IdTipoFoto Then
       PathImmagine = Fotografia.Link
              Exit For
   End If
Next

If PathImmagine<>"" Then
   Response.Write(UrlSito & Replace(PathImmagine,"","/"))
   Set myFile=Rdy.File(Product.CustomField(870))
   myFile.CopyFileTo("D:\FotoReady" & Fotografia.Link)
   Else
   Response.Write("")
End If
crif76pv 25/05/2017 21:58 crif76pv

i link sembra che li crei correttamente..... ma pare che non copia il file nella cartella D:Fotoready
Fabio 26/05/2017 11:44 Campo libero: Fabio

Citazione:
Con lo script di seguito..... preso da un vostro esempio nella guida...

Mi dispiace ma non posso aiutarla nello specifico per lo sviluppo di script.
Per un supporto nell'utilizzo e/o personalizzazione di script deve necessariamente rivolgersi al nostro servizio di teleassistenza