VB로 실무를 하다보면 사용자 요구사항 중에 빈번하게 나오는 요구사항들은 편리성인데 그중 하나가 파일을 저장할때 다이얼로그 박스가 나오면서 파일명이 기입되게 하는 부분인데 무심코 만든 코딩보다는 신경써서 만들어 놓아야 할것이다. 아래는 해당코드인데 자신에 맡게 변경해서 사용하면 된다.

    Private Sub SaveFile()

        SaveFileDialog1.Title = "TEST"
        SaveFileDialog1.DefaultExt = "xls"
        SaveFileDialog1.Filter = "Excel Files|*.xls|All Files|*.*"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.FileName = Format(Now(), "yyyyMMdd") + "_" + "Titel명"
        SaveFileDialog1.ShowDialog()

        If SaveFileDialog1.FileName = "" Then Exit Sub

        Dim strExt As String
        strExt = System.IO.Path.GetExtension(SaveFileDialog1.FileName)
        strExt = strExt.ToUpper()


        If strExt = ".XLS" Then
            파일저장 함수 호출
        End If

    End Sub

p.s 모든 언어가 마찬가지 겠지만 이런 섬세한 부분까지 챙겨준다면 사용자는 프로그램을 만들어준 개발자를 계속 찾을것이다.

+ Recent posts