拖放文件夹

Question

我有一个应用程序，它的简单之处在于将文件从我的计算机拖放到应用程序中，然后它会显示名称、类型、大小、创建时间、修改时间和上次访问时间。但我意识到它只删除文件，我希望它也删除文件夹。

这是应用程序的布局 enter image description here

在我删除文件后（可以是快捷方式、.exe、excel 文件、.rar、...） enter image description here

如果我尝试删除文件夹，我可以这样做，但不显示任何内容，我不明白为什么。

这里分别是 DragEnter 和 DragDrop 代码

拖动回车

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
        e.Effect = DragDropEffects.Copy
    End If

拖放

Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0)

    MyFile = New FileInfo(file)

    If String.IsNullOrWhiteSpace(MyFile.Extension) Then
        Exit Sub
    End If

    ShowInfoFiles()

    UpdateControls()

经过一些测试，我发现这可能是主要问题。下面的代码是将文件放在私有子 ShowInfoFiles() 内的该标签上后将更新的内容。

    lblName.Text = MeuFicheiro.Name
    lblType.Text = MeuFicheiro.Extension
    lblSize.Text = Math.Round(MeuFicheiro.Length / 1024) & "KB"
    pbIcon.Image = Icon.ExtractAssociatedIcon(MeuFicheiro.FullName).ToBitmap

如果我评论更改这行代码

如果您能帮助我解决或尝试解决此问题，我将不胜感激。

MyFile.Extension

到

MyFile.Name

它只会在调试时显示名称。所以我推测它可能与扩展和图标有关

Answer 1

您可以检查一个目录是否存在与删除实体的名称：

Dim item As String = CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString
If Directory.Exists(item) Then
    ' process item as a directory
Else
    ' process item as a file
End If

[看起来你可能没有使用Option Strict On。我强烈建议你这样做。]