[RESOLVED] Create Directory/Folder

[ayionick]

Here's my form code:

Private Sub cmdUpdate_Click()
 
On Error GoTo errorHandler:
 
        Call fileOutput(Me, 0)
        x = MsgBox("Record updated.", vbInformation + vbOKOnly, "Update")
        Call mdlMain.clear(Me)
        dtpDateFrom.SetFocus
 
errorHandler:
    FileErrors

module code(fileOutput function):

dfrom = frmref.dtpDateFrom.Value
        dto = frmref.dtpDateTo.Value
        addOne = Format(DateAdd("d", 1, dto), "YYYYMMDD")
        
        'copy textfile content to another texfile
        Open "C:\Upload\NewClient.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, sLines
                mydate = Left(sLines, 12)
                If Format(dfrom, "YYYYMMDD") <= mydate And mydate < addOne Then
                    Output = Output & vbCrLf & sLines
                End If
        DoEvents
        Loop
        Close #1
        
        'write in textfile
        Open "c:\Update\NewClient.txt" For Output As #1
        Print #1, Output
        Close #1

error trapping:

Public Const mnErrPathDoesNotExist = 76
 
Public Function FileErrors() As Integer
    Select Case Err.Number
        Case mnErrPathDoesNotExist              ' Error 76
            strMsg = "The path or file you are trying to access doesn't exist."
            strMsg = strMsg & vbCrLf & "It maybe renamed, moved or deleted."
            strMsg = strMsg & vbCrLf & "Please contact your administrator."
            intMsgType = vbExclamation + vbOKOnly

These codes are running already. When I don't call errorHandler/fileError, the VB6 program automatically create "C:\Update". But when there's error trapping mnErrPathDoesNotExist appears.

How will I create "C:\Update" even with error trapping?

[randem]

One way:

On Error Resume Next
MDir "C:\Update"
On Error GoTo 0

[ayionick]

One way:

On Error Resume Next
MDir "C:\Update"
On Error GoTo 0

I got "Sub or Function" error message.

[ayionick]

Thanks randem, got it right already!

It should be:

On Error Resume Next
MkDir "C:\Update"
On Error GoTo 0

[randem]

OK, happy fingers forgot the k

[ganeshmoorthy]

you need to add Exit Sub just before the Error Handler

Private Sub cmdUpdate_Click()

On Error GoTo errorHandler:

        Call fileOutput(Me, 0)
        x = MsgBox("Record updated.", vbInformation + vbOKOnly, "Update")
        Call mdlMain.clear(Me)
        dtpDateFrom.SetFocus
        Exit Sub 'NEED TO ADD THIS LINE
errorHandler:
    FileErrors
End Sub

[ayionick]

you need to add Exit Sub just before the Error Handler

Private Sub cmdUpdate_Click()

On Error GoTo errorHandler:

        Call fileOutput(Me, 0)
        x = MsgBox("Record updated.", vbInformation + vbOKOnly, "Update")
        Call mdlMain.clear(Me)
        dtpDateFrom.SetFocus
        Exit Sub 'NEED TO ADD THIS LINE
errorHandler:
    FileErrors
End Sub

This code is actually inside a loop, do I still need to put exit sub?

[ganeshmoorthy]

where is the loop...are you calling the cmdUpdate_click from a loop, eventhough it should have the exit sub before the error handler...the syntax of a proc/sub should be

Private Sub ProcName ()
    On Error GoTo ErrHandler
    'your codings
    Exit Sub
ErrHandler:
    'Code to handle errors
Exit Sub