Imports FiestaLib

Module Module1

    Sub Main()
        If Not IO.Directory.Exists("SHN") Then
            IO.Directory.CreateDirectory("SHN")
        End If
        If Not IO.Directory.Exists("NewSHN") Then
            IO.Directory.CreateDirectory("NewSHN")
        End If
        For Each file As String In IO.Directory.GetFiles("SHN")
            If file.EndsWith(".shn") Then
                Try
                    Dim SHNFile As New SHNFile(file)
                    Dim filename As String = IO.Path.GetFileName(file)
                    SHNFile.Save("NewSHN/" & filename)
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try
            End If
            Console.WriteLine("Done with " & file)
        Next
        Console.WriteLine("Done")
        Console.ReadLine()
    End Sub

End Module