Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - vb.net 2010 copia file
Forum - C# / VB.NET - vb.net 2010 copia file

Avatar
trattobasso (Normal User)
Pro


Messaggi: 89
Iscritto: 02/05/2007

Segnala al moderatore
Postato alle 18:04
Martedì, 27/12/2011
Ciao a tutti e prima di tutto buone feste.
Sto cercando (inutilmente come il solito) di eseguire un copia file descritto concettualmente più o meno come segue.
- textbox per inserire il nome della persona
- open file dialog per catturare il nome del file
- il percorso di destinazione dovrebbe essere così composto:
  cartella predefinita presente sul disco+cartella da creare prelevando il nome dalla     textbox + nome del file

Quello che concettualmente e praticamente non riesco a capire è come indicare il percorso sopra descritto.
Ovviamente per copiare il file faccio così:

Codice sorgente - presumibilmente Plain Text

  1. (My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\cartella\cartella2........................................................."),Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, FileIO.UICancelOption.DoNothing)



Ciao

PM
Avatar
GN (Member)
Guru


Messaggi: 770
Iscritto: 30/04/2011

Up
0
Down
V
Segnala al moderatore
Postato alle 21:41
Martedì, 27/12/2011
Se ho capito bene cosa vuoi fare, così dovrebbe funzionare:
Codice sorgente - presumibilmente VB.NET

  1. Dim dir As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\" & TextBox1.Text
  2. My.Computer.FileSystem.CreateDirectory(dir)
  3. Dim info as New IO.FileInfo(OpenFileDialog1.FileName)
  4. My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileName, dir & "\" & info.Name)



PM
Avatar
NR2 (Normal User)
Newbie


Messaggi: 18
Iscritto: 26/06/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 13:11
Venerdì, 30/12/2011
puoi provare anche cosi

Codice sorgente - presumibilmente VB.NET

  1. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  2.             Dim cartella As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\" + TextBox1.Text
  3.             MkDir(cartella)
  4.             My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileName, cartella + "\" + OpenFileDialog1.SafeFileName)
  5.         End If


Grazie ad entrambi, funziano benissimo entrambe le solizioni per il mio caso. Anco - trattobasso - 12/01/12 11:36
PM