[Sajad]

السلام عليكم

استبدل كود الcopy بهذا الكود

PHP كود :

For Each info As FileInfo In dinfo.GetFiles()
            If info.Exists And info.Name = ListView1.SelectedItems(0).Text Then
                Dim s As New System.Collections.Specialized.StringCollection()
                s.Add(info.FullName)
                Clipboard.SetFileDropList(s)
            End If
        Next

        For Each d As DirectoryInfo In dinfo.GetDirectories()
            If d.Exists And d.Name = ListView1.SelectedItems(0).Text Then
                Dim s As New System.Collections.Specialized.StringCollection()
                s.Add(d.FullName)
                Clipboard.SetFileDropList(s)
            End If
        Next 


بالتوفيق ان شاءالله