MKDIR In VB ??

[harshakusam]

Hi All,

When i run below code It's not creating folder.... In can see it in msgbox prompt it showing correctly .. Could you pls help me where iam wrong....

 
Dim str As String
ftp_Date = Format(Date, "yyyymmdd")
str = "D:\Daily FXPCA Trade Report\" & ftp_Date
MsgBox str
MkDir str
 

[ChipR]

I've used this successfully:

Dim fso As Object
Dim str As String
str = ...
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(str) Then
  fso.CreateFolder(str)
End If

[NeoPa]

It doesn't seem too wrong to me :S

Can you check that the string is all spelt correctly (no typos) and that the parent folder exists already. Lastly, check the permissions of the parent folder (Can you create such a subfolder manually?).

[ADezii]

This appears to be a case where you may wish to incorporate a simple Error Trap into the coding, to more clearly indicate any Errors which may occur, as in:

On Error GoTo Err_FolderCreation
Dim str As String
Dim ftp_Date As Variant
Const conPATH_FILE_ACCESS_ERROR = 75
 
ftp_Date = Format(Date, "yyyymmdd")
str = "D:\Daily FXPCA Trade Report\" & ftp_Date
 
MkDir str
 
MsgBox "The following Path, " & str & ", has successfully been created!", _
        vbInformation, "Path Created"
 
Exit_FolderCreation:
  Exit Sub
 
Err_FolderCreation:
  If Err.Number = conPATH_FILE_ACCESS_ERROR Then     'The Folder already exists/Network Error
    MsgBox "The following Path, " & str & ", already exists or there was an Error " & _
           "accessing it!", vbExclamation, "Path/File Access Error"
  Else
    MsgBox Err.Description, vbExclamation, "Error Creating " & str
  End If
    Resume Exit_FolderCreation

[harshakusam]

Thanks ADeZii,

It worked

Thanks a lot....

[NeoPa]

Perhaps you could tell us what you found the problem to be in the end?

[ADezii]

@harshakusam
You are quite welcome. I'll repeat what NeoPa has already asked, what exactly was the problem?