Varibile d'ambinte %cd% in visual basic

[KillerPenguin]

eccomi con un altro problema:
devo copiare un file ii cui percorso è stato scritto nella textbox1, la cui destinazione deve essere la directory dove si trova l'eseguibile del form. non so se sono stato chiaro.
esempio se lo dovessi scrivere in un file cmd scriverei:

Codice: Seleziona tutto

copy "textbox1" "%cd%"

in vb invece scrivo:

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, %cd%)

ma %cd% non me lo dà, quindi cosa devo mettere al posto di %cd% per far si che la destinazione sia la directory dove si trova l'eseguibile?
spero di essere stato chiaro

[Andy94]

La cosa più semplice che mi viene in mente è questa:

Codice: Seleziona tutto

IO.Path.GetDirectoryName(Application.ExecutablePath)

Quel codice ti fornisce il percorso in cui si trova l'eseguibile chiamante, senza l'ultima barra (qualora l'indirizzo non si limiti ad una radice).

[KillerPenguin]

io ho scritto queto:

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath))

e tutto procede bene ma quando compilo la relase, la avvio e premo il pulsante mi dice dice " impossibile completare l'operazione. nel percorso "percorso dell'eseguibile" è già presente una directory."

centra nnt che per scrivere il percorso del file da copiare uso un button con la stringa:

Codice: Seleziona tutto

OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName

[Andy94]

Il secondo parametro identifica una directory e non un percorso ad un file, come il metodo che usi vuole.
Devi avere il percorso completo di nome in entrambi i parametri.

[KillerPenguin]

scusami ma ho cominciato con il vb da poco, puoi dirmi xfavore cosa devo mettere len butto in modo che mi copi il file il cui percorso e dato dalla textbox1 nella cartella dove è presente l'eseguibile?.. scusa se ti do tutto questo fastidio

[Andy94]

Qualcosa come questo potrebbe funzionare.

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath)) & "\" & IO.Path.GetFileName(TextBox1.Text))

[KillerPenguin]

provo subito!

[KillerPenguin]

mi da errore, dice prevista fine dell'istruzione :(

[Andy94]

Ho fatto confusione con le parentesi perché non ho controllato il codice nell'IDE prima di postarlo. Spiacente.
Prova così:

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath) & "\" & IO.Path.GetFileName(TextBox1.Text))

[KillerPenguin]

Ho fatto confusione con le parentesi perché non ho controllato il codice nell'IDE prima di postarlo. Spiacente.
Prova così:

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath) & "\" & IO.Path.GetFileName(TextBox1.Text))

Perfetto Andy94 Ancora una volta mi hai risolto un problema!!! Sei Miticoooooooo

[Andy94]

Prego.

Tieni presente che questo codice è molto elementare e poco controllato. Se il file dovesse, per qualunque motivo, già essere presente (o non essere copiabile, o chissà), l'applicazione andrà in crash a causa di un'eccezione. Ti converrebbe quindi includere il tutto in un blocco Try/Catch per prevenire la questione (qualora ce ne sia reale bisogno, altrimenti puoi fare a meno). Un esempio di ciò cui mi riferisco è:

Codice: Seleziona tutto

Try
My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath) & "\" & IO.Path.GetFileName(TextBox1.Text))
Catch FileCopyException As Exception
MsgBox("Errore nella copia del file: " & FileCopyException.Message,MsgBoxStyle.Critical or MsgBoxStyle.OkOnly, "Eccezione nella copia")
End Try


[KillerPenguin]

Perdona la mia ingnoranza ma se devo farsi che il file che deve essere copiato venga copiato in una cartella chiamata prova che si trova nella stessa cartella dell'eseguibile cosa devo scrivere??

[Andy94]

Devi aggiungere la directory che ti interessa fino ad ottenere il percorso voluto. Nel qual caso avrai:

Codice: Seleziona tutto

    My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath) & "\prova\" & IO.Path.GetFileName(TextBox1.Text))

[KillerPenguin]

Grazie infinite Andy, sei un mito. se ho altri problemi so dove trovarti

[Andy94]

Certamente!

[KillerPenguin]

scusa se ti scasso ma, se voglio copiare non uno ma più files sempre in quella cartella?
mi dici cosa scrivere nel button?

[Andy94]

Ripeti il comando di copia tante volte quanto ti serve.

[KillerPenguin]

solo che invece di usare una textbox vorrei usare una listbox con rispettivo button per inserisci all'interno i file da copiare, il problema è che questo

Codice: Seleziona tutto

My.Computer.FileSystem.CopyFile(TextBox1.Text, IO.Path.GetDirectoryName(Application.ExecutablePath) & "\" & IO.Path.GetFileName(TextBox1.Text))

funziona solo per copiare un file, mentre io vorrei che tutti i files della listbox vengano copiati indipendentemente dal numero. puoi darmi una mano?