how to move checkeditems file in listbox to a folder?

[mikkoO8]

hi. im actually making a desktop cleaner that can move the files and icons to a folder inside the listview box.
i can make the listview box filled with files contains at the desktop
and i can make a new folder which suppose to be move the files on that folder

i have 3 problems:

1. is how to get last access time of the FILE and put it column2 of the listview

2. i want to view that are unused icon and document last week, 2weeks, 1month and 2months by selecting at the combobox

3. how to move checkeditems file in listbox to a folder?


i've been researching for 2 days and not posting a topic and now im frustrated
help me.. thanks in advance.

Imports System.Runtime.InteropServices 'For APIs
Imports System.IO 'Import System.IO For File Operations 
Imports Microsoft.Win32 'The Registry stuff
Imports System.Windows.Forms.Application
Imports System



'TO view files inside the listbox

Public Class Form1

    Private Filenames() As String

    Private Sub LoadFilenames()

        Dim Desktop As String = My.Computer.FileSystem.SpecialDirectories.Desktop.ToString()
        Dim FilePath As String 
        Dim NumFiles As Integer 
        Dim TruncName As String 

        For Each FilePath In Directory.GetFiles(Desktop)

            TruncName = FilePath.Substring(FilePath.LastIndexOf("\") + 1) 'Remove Path From Name

     
            ListView1.Items.Add(TruncName)

        
            ReDim Preserve ScreenNames(NumFiles) 

            FileNames(NumFiles) = FilePath 

            NumFiles = NumFiles + 1 'Increment File Count

 

        Next

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadFilenames()
    End Sub


TO CREATE A FOLDER ON DESKTOP

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Desktop As String = My.Computer.FileSystem.SpecialDirectories.Desktop

        If Not My.Computer.FileSystem.DirectoryExists(Desktop & "\Unused Desktop Icon and Documents") Then
        My.Computer.FileSystem.CreateDirectory(Desktop & "\Unused Desktop Icon and Documents")
          End If

        
	    With Me.ListView1
            For i As Integer = 0 To .CheckedItems.Count - 1

                .Items.Remove(.CheckedItems(0))

            Next i
        End With

        ' If di.Exists Then
        ' Indicate that it already exists.
        ' MsgBox("That path exists already.")
        ' Else
        ' Try to create the directory.
        ' di.Create()

        '  End If

        'TextBox1.Text = di.FullName


    End Sub

[Curtis Rutland]

You should look into FileInfo and DirectoryInfo. I've found them much more useful than the File and Directory objects.

[mikkoO8]

You should look into FileInfo and DirectoryInfo. I've found them much more useful than the File and Directory objects.

what's the difference of fileinfo and directoryinfo between file and directory? when i'm typing fileinfo the only extension .equals .reference equals. pls help. need some sample codes if any. thanks.

[Curtis Rutland]

what's the difference of fileinfo and directoryinfo between file and directory? when i'm typing fileinfo the only extension .equals .reference equals. pls help. need some sample codes if any. thanks.

Here are a few very quick samples of what you can do with the FileInfo and DirectoryInfo classes:

		Dim d As New System.IO.DirectoryInfo("path")
		Dim fArray As System.IO.FileInfo()
		'gets all files with/without filter
		fArray = d.GetFiles("*.txt")

		Dim f As New System.IO.FileInfo("filePath")
		Dim lastAccesed As DateTime
		'last accessed time 
		lastAccesed = f.LastAccessTime

[mikkoO8]

Here are a few very quick samples of what you can do with the FileInfo and DirectoryInfo classes:

		Dim d As New System.IO.DirectoryInfo("path")
		Dim fArray As System.IO.FileInfo()
		'gets all files with/without filter
		fArray = d.GetFiles("*.txt")

		Dim f As New System.IO.FileInfo("filePath")
		Dim lastAccesed As DateTime
		'last accessed time 
		lastAccesed = f.LastAccessTime

how about #3? when i checked some files in the listview1. when i hit the button the file that i checked will be move to another folder? is it possible to store data when it checked? thanks for helping me.