G
Guest
I wrote a small data processing application that writes a summary of
several hundred files. I use drag and drop on a panel (Panel1) to grab
the absolute path to each of these files. Then I begin analyzing all of
the files. I noticed (on the same machine) that some user profiles
appear to abbreviate the absolute paths to these files thus breaking my
data loading mechanism. Does anyone know how I can programmatically
change this filepath behavior?
Private Sub frm_QuickView_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub onTestDragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles Panel1.DragDrop
Dim fileList() As String = CType(e.Data.GetData(DataFormats.FileDrop),
String())
Me.StatusBar1.Text = "Loading Session..."
M_ProcessingEngine.loadDataFiles(fileList)
End Sub
I am certianly aware of other methods of opening a group of files
however people at this company prefer the look and feel of being able
to just drag a file over the application than have to deal with
dialogs.
If anyone has suggestions they would be much appreciated
Thanks,
Jeff
several hundred files. I use drag and drop on a panel (Panel1) to grab
the absolute path to each of these files. Then I begin analyzing all of
the files. I noticed (on the same machine) that some user profiles
appear to abbreviate the absolute paths to these files thus breaking my
data loading mechanism. Does anyone know how I can programmatically
change this filepath behavior?
Private Sub frm_QuickView_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub onTestDragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles Panel1.DragDrop
Dim fileList() As String = CType(e.Data.GetData(DataFormats.FileDrop),
String())
Me.StatusBar1.Text = "Loading Session..."
M_ProcessingEngine.loadDataFiles(fileList)
End Sub
I am certianly aware of other methods of opening a group of files
however people at this company prefer the look and feel of being able
to just drag a file over the application than have to deal with
dialogs.
If anyone has suggestions they would be much appreciated
Thanks,
Jeff