Salve ragazzi ho un problema che non riesco a risolvere.
Vorrei un semplice form che accetti il dragDrop
di uno o più file e poi me le copi o me li sposti in determinate posizioni
tutto quello che sono riuscito a fare è questo
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
Try
my.computer.filesyste.copyfile(files(0),percorso file)
tch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
e.Data.GetDataPresent(DataFormats.FileDrop)
e.Effect = DragDropEffects.All
End Sub
I problemi sono un paio
1 - e che non riesco a gestire bene la copia del file visto che in questo modo ho il percorso del file di origine ma devo dare manualmente il percorso di destinazione INDICANDO ANCHE IL NOME E L'ESTENSIONE DEL FILE mente a me piacerebbe riuscire a ricavare dal dragDrop anche il nome e l'estensione del file.
2 - non riesco a gestire l'arry per la copia di più file perchè se uso una formula del tipo:
my.computer.filesyste.copyfile(files(0),percorso file)
my.computer.filesyste.copyfile(files(1),percorso file)
my.computer.filesyste.copyfile(files(2),percorso file)
my.computer.filesyste.copyfile(files(3),percorso file)
e droppo solo 2 files allora mi da errore per gli ultimi 2 che ovviamente rimangono vuoti
ho provato:
if files(3) = ""
if files(3) is nothing
if files(3) = false
ma nulla. Qualcuno di buon cuore che mi spiega come fare?