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, ...

Luc Pattyn wrote:

Also, you can copy-paste the designer code from where it is to where you prefer it to be, then remove the designer file. The designer may or may not still work for you then (I do it sometimes in C#, I have no experience doing this in VB.NET).