Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()

Dim str1 As String
Dim nameSvFile As String
Dim mypath As String
Dim strFileExists As String
Dim filenames As String
 
    Call PadRunNumber
    
    mypath = ThisWorkbook.Path & "\"
    str1 = mypath & "00000000-insname-carid.xlsm"
    nameSvFile = mypath & [ShowFName4Save] & ".xlsm"
    strFileExists = Dir(mypath & [ShowFName4Save] & ".xlsm")

    If strFileExists <> "" Then
            
            MsgBox Split(strFileExists, "-")(0) & " ไฟล์นี้น่าจะมีอยู่แล้วกรุณาตรวจสอบใหม่อีกครั้ง"
            
    Else
    
            Range("RunNumber") = Range("RunNumber") + 1
            Call PadRunNumber
                FileCopy str1, nameSvFile
                MsgBox "สร้างไฟล์สำเร็จ " & [RunCaseNumber] - 1
            Workbooks.Open nameSvFile
            
    End If
    
End Sub

Code: Select all

'Other code
strFileExists = mypath & Left([ShowFName4Save], InStr([ShowFName4Save], "-")) & "*"

If Dir(strFileExists) <> "" Then
    MsgBox Split(strFileExists, "-")(0) & " ไฟล์นี้น่าจะมีอยู่แล้วกรุณาตรวจสอบใหม่อีกครั้ง"
Else
'Other code