Visual Basic

<br />
Imports System.IO<br />
Public Class Form1<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
OpenFileDialog1.ShowDialog()<br />
 <br />
End Sub<br />
 <br />
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br />
Dim oldpath As String<br />
Dim length As Integer<br />
Dim year As String<br />
Dim month As String<br />
Dim newpath As String<br />
Dim start As Int32 'start of year in string<br />
Dim start2 As Int32 'start of month in string<br />
Dim start3 As Int32 'start of filename in string<br />
Dim newpathfull As String<br />
 <br />
For Each S As String In OpenFileDialog1.FileNames<br />
'oldpath = S<br />
'gets length of filename<br />
length = S.Length<br />
'Pulls year from last 12 digits of filename<br />
start = length - 12<br />
year = S.Substring(start, 4)<br />
'Pulls the month from the filename<br />
start3 = length - 8<br />
start2 = S.LastIndexOf("\")<br />
month = S.Substring(start3, 2)<br />
newpath = "C:\PP\"<br />
newpathfull = year & "\" & month & "\" & S.Substring(start2 + 1)<br />
'checks for directory, if not there then creates it.<br />
If (Directory.Exists(newpath)) Then<br />
System.IO.File.Copy(S, newpath)<br />
Else<br />
System.IO.Directory.CreateDirectory(newpath & year)<br />
System.IO.Directory.CreateDirectory(newpath & year & month)<br />
End If<br />
Next<br />
 <br />
 <br />
 <br />
End Sub<br />
End Class<br />

<br />
<br />
Imports System.IO<br />
Public Class Form1<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        OpenFileDialog1.ShowDialog()<br />
<br />
<br />
    End Sub<br />
<br />
<br />
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br />
<br />
        Dim oldpath As String<br />
<br />
<br />
        For Each S As String In OpenFileDialog1.FileNames<br />
            Dim length As Integer<br />
            Dim yearpath As String<br />
<br />
            Dim monthpath As String<br />
            Dim newpath As String<br />
            Dim start As Int32  'start of yearpath in string<br />
            Dim start2 As Int32 'start of monthpath in string<br />
            Dim start3 As Int32 'start of filename in string<br />
            Dim newpathfull As String<br />
<br />
            Threading.Thread.Sleep(100)<br />
<br />
            'gets length of filename<br />
            length = S.Length<br />
            'Pulls yearpath from last 12 digits of filename<br />
            start = length - 12<br />
            yearpath = S.Substring(start, 4)<br />
            'Pulls the monthpath from the filename<br />
            start3 = length - 8<br />
            start2 = S.LastIndexOf("\")<br />
            monthpath = S.Substring(start3, 2)<br />
            'new destination path<br />
            newpath = S.Substring(0, 3) & yearpath & "\" & monthpath & "\"<br />
            newpathfull = newpath & S.Substring((start2 + 1))<br />
            'checks for directory, if not there then creates it.<br />
            If (Directory.Exists(newpath)) Then<br />
                System.IO.File.Copy(S, newpathfull)<br />
            Else<br />
                System.IO.Directory.CreateDirectory(newpath)<br />
                System.IO.File.Copy(S, newpathfull)<br />
            End If<br />
<br />
        Next<br />
<br />
<br />
<br />
<br />
<br />
    End Sub<br />
End Class<br />
<br />

Henry Minute wrote:

If I am way off base, ...