Oppure

Loading
07/04/09 14:59
fosforo
Non capisco perchè non va:

Dim param As String
param = Command$
Set FSO = CreateObject("Scripting.FileSystemObject";)
Set MyFolder = FSO.GetFolder("C:\Users\fax\Desktop\Test\";)
Set MyFile = MyFolder & param
' --------------------------- controllo peso file ---------------
With MyFile
PesoUno = .Size
MsgBox param
End With
Set FSO = Nothing
aaa
07/04/09 15:03
theprogrammer
Cosa non va?

Cosa vorresti ottenere?
aaa
07/04/09 15:04
ruggy94
ma vuoi che il peso del file ti appaia in msgbox? non ho capito bene
aaa
07/04/09 15:12
theprogrammer
Per ottenere la lunghezza del file in input scrivi semplicemente

MsgBox FileLen("C:\Users\fax\Desktop\Test\" & Command$)
aaa
07/04/09 15:23
fosforo
Scusate ma sono agli inizi.
Sto cercando di capire come trattare i path sul disco.
Il problema è che vorrei concatenare i percorsi.
Mi spiego.
<param lo prendo dal comando che lancia l'eseguibile. (e funziona)>

Set MyFile = FSO.GetFile("C:\Users\fax\Desktop\Test\" & param)
MsgBox MyFile
<Mi da il nomefile con il suo percorso.>

Set MyFolder = FSO.GetFolder("C:\Users\fax\Desktop\Test\";)
Set MyFile = MyFolder & param
MsgBox MyFile
<non funziona>

aaa
07/04/09 15:24
theprogrammer
Hai letto la mia risposta? Altrimenti perche' rispondere?
aaa
07/04/09 15:28
fosforo
Certo che l'ho letta.
Ma io devo capire per imparare.

Come mai la seconda ipotesi non funziona?

Tanto per capire:

FSO.CopyFile MyFile, (MyFolder & "xxxxxx.txt";)

Non mi copia il file seguendo il percorso di Myfolder ma me lo copia sul desktop

Mi rispondo da solo
Set MyFolder = FSO.GetFolder("C:\Users\fabio.ANTEPRIMAVIDEO\Desktop\Test\ " & "\";)

Cosi funziona
Non so se è corretto ma funziona

EDIT: non fare + post di fila, usa il pulsante edit.
Ultima modifica effettuata da GrG 07/04/09 15:50
aaa