[RESOLVED] Drag and Drop - Folder

[noop]

Hello Everyone,

I have been able to implement drag and drop successfully on my listView object if you were to drop a file on it, however I seem to be having some troubles if the user were to drag the folder onto the object. Is there a simple way to check if the user dropped a folder, and if so, list all of the files in the folder/subfolders?

Thanks in advance!
noop

[jmcilhinney]

I haven't tested dropping a folder but I would expect that you would get a path in a FileDrop just as you do for a file. You can use the IO.File.Exists and/or the IO.Directory.Exists method to determine whether you have a file path or a folder path. If you have a folder path, the IO.Directory.GetFiles method will give you all the file paths. Just note that, if the folder contains subfolders, you may need to use IO.Directory.GetDirectories recursively to get files at all levels.

[noop]

Ok, I am able to determine whether or not the user dropped a folder or file, but now it seems like it is only reading the files in that one folder, rather than read all of the files in the folder as well as its subfolders.

Thanks for helping me with this,
noop

[jmcilhinney]

That is the default behaviour but Directory.GetFiles allows you to specify either option.

[noop]

Here is what I am using... How do you use GetFiles to work recursively throughout the sub folders?

For Each file_name As String In file_names
            If IO.Directory.Exists(file_name) Then

                ' make a reference to a directory
                Dim ioDir As New IO.DirectoryInfo(file_name)
                Dim dir1 As IO.FileInfo() = ioDir.GetFiles("*.txt")
                Dim subFile As IO.FileInfo

                For Each subFile In dir1

                    Me.lstAddMedia.Items.Add(subFile.FullName)
                    Me.lstAddMedia.Items.Item(files).SubItems.Add("Extra Column")
                    files += 1
                Next

            ElseIf IO.File.Exists(file_name) Then
                If IO.Path.GetExtension(file_name) = ".txt" Then
                    Me.lstAddMedia.Items.Add(file_name)                  
                    Me.lstAddMedia.Items.Item(files).SubItems.Add("Extra Column")
                    files += 1
                End If
            End If
        Next file_name

Thank you for helping,
noop

[jmcilhinney]

Read the MSDN documentation for the DirectoryInfo.GetFiles method. All you need is in there.

[noop]

Wow, I feel stupid I didn't see that.

Thanks again!