Newsgroup: it.comp.lang.visual-basic
Titolo: animation ??????

Ciao a tutti
per copiare un file di grandi dimensioni uso un piccolo form in cui ho
inserito
animation1 collegato al file Filecopy.avi (tipo Windows) e funziona bene. Il
problema è che
quando installo il programma in un altro computer funziona bene solo se lo
lancio dalla cartella
che lo contiene, ma se faccio il collegamento al desktop mi dice (File not
found).
Eppure ho usato questa riga di codice per il path
animation1= app.path & "\Filecopy.avi"
chi sa dirmi dove sta il casino??????????
Grazie anticipatamente

APP.PATH() as String ritorna il percorso dell'applicazione, quindi se lo
metti sul desktop è ovvio che non lo vede...
Se vuoi puoi fare una ricerca del file nell'hard.disk: scarica l'esempio di
uso di Cesare Rizzi al link:
http://members.xoom.it/CesareRizzi/TrovaFile.zip
Ciao, Timothy
P.S. Imparate a usare i subject, leggete il
Manifesto(
http://www.it-lang-vb.net/docs/Manifesto.txt
)
--
Timothy Redaelli
timothy....@email.it
--
Prendi GRATIS l'email universale che ti paga: clicca 
http://www.email.it/f
Sponsor: Suonerie e loghi per il tuo cellulare!
Personalizza il tuo cellulare! Supereva ti offre una vasta gamma di 
suonerie e loghi. Se sei stanco del solito cellulare, clicca qui: 
http://www.godado.it/goletter.pperl/page=EfJk/id=555f5fB8
-- 
Posted from 
mail1.webmessenger.it
 [193.70.193.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 metti sul desktop è ovvio che non lo vede...
non ho capito o il post o la risposta.
ho appena fatto un exe. il codice:
    Private Sub Form_Load()
        Text1 = App.Path
    End Sub
creato uno shortcut sul desktop:
---> C:\vbvar\prv_\app_path
il path si spera in effetti sia quello dell'app, non quello del lnk.
danilo, l'avi e' nella stessa dir dell'exe ?
sei sicuro di come viene creato il lnk ?

io installo il programma creato con VB e dopo creo un collegamento
sul desktop non da codice ma con il tasto destro del mouse. Comunque
il collegamento fa riferimento alla directory dove risiede il programma
compreso il file "filecopy.avi" quindi (ahimè) dovrebbe trovarlo.
ciao e grazie per l'aiuto

 ciao e grazie per l'aiuto
ho ripreso il codice di prima.
messo un file text.txt nella stessa dir.
sia che lo lanci dalla cartella che dal desktop, il risultato non cambia.
pero'...
Private Sub Form_Load()
    Dim f As String, s As String
    f = App.Path & "\text.txt"
    s = f & vbCrLf
    s = s & App.Path & vbCrLf
    s = s & Dir(f) & vbCrLf
    s = s & FileDateTime(f) & vbCrLf
    s = s & FileLen(f) & vbCrLf
    Text1 = s
End Sub
->
C:\vbvar\prv_\app_path\text.txt
C:\vbvar\prv_\app_path
Text.txt
25/04/2001 22.39.41
13
... pero', attenzione:
se il file l'hai in root, ci viene il solito casino del doppio slash:
C:\\text.txt
C:\
Text.txt
25/04/2001 22.39.41
13
per curiosita', prova a mettere nel tuo codice qualche controllo come
questi, a buttare il risultato in un txt, e poi a postare codice e
risultato.
ciao, a.

C:\\text.txt
che si corregge usando GetFullPathName, che espande anche i path 
"dotted", o che usano slash multipli, o slash normali anzichč backslash, 
o slash e backslash mischiati
(ed č la funzione che dovrebbero usare tutti quelli che fanno un server 
FTP o HTTP per non farsi fregare dai path del tipo /../../../..)
prova a passare questo a GetFullPathName (non ti preoccupare, si limita 
a tradurre i path, non a verificarli):
G:\\\/WINNT//../\\WINNT\System32\..\\system\./..//System32/\\cmd.exe
se non ho fatto male i conti dovrebbe tradurlo in un ben piů umano:
G:\WINNT\System32\cmd.exe
E' comodo sapere quali funzioni usa internamente Windows per certe cose. 
Ad esempio, se anzichč chiamare cecamente e stupidamente ShellExecute i 
programmi verificassero che il path del file sia approvato dall'utente 
prima di eseguirlo, sarebbe un mondo migliore, non trovate?
La funzione per farlo č SearchPath (vi rimando alla documentazione). Vi 
permette di cercare un nome di file nel modo in cui lo fa Windows (prima 
il percorso dell'eseguibile, poi la cartella corrente, poi la cartella 
system, eccetera)