How to create folder in desktop with vba whenever the excel book is opened, if exist, ignore?

[viriato74]

How to create folder in desktop with vba whenever the excel book is opened, if exist, ignore.
Message if create new folder, silent if the folder exist.

I have the code to create folder on desktop

Sub CriarPastaFaturaDesktop()
'Variable declaration
Dim sFolderName As String
Dim sDesktopPath As String, sFolderPath As String

'Find Desktop path location
sDesktopPath = Environ("USERPROFILE") & "\Desktop\"

'Define folder name to create on the desktop
sFolderName = "FATURAS"

'Folder Path
sFolderPath = sDesktopPath & sFolderName

'Create FSO Object
Set oFSO = CreateObject("Scripting.FileSystemObject")

'Check Specified Folder exists or not
If oFSO.FolderExists(sFolderPath) Then
'If folder is available on the desktop
MsgBox "Uma pasta com o mesmo nome já existe no Desktop!", vbInformation, "INFO"
Exit Sub
Else
'Create Folder
MkDir sFolderPath

'Diplay messafe on the screen
MsgBox "Pasta criada com sucesso em: " & vbCrLf & vbCrLf & sFolderPath, vbInformation, "INFO"
End If

End Sub

 

[Gokhan Aycan]

Insert a module, paste the code to it and call this sub from Workbook_Open event.

Double click on "ThisWorkbook"

I don't have a Module1 but say it is there.

 

[viriato74]

Thanks for your help.
I found what I was looking for.

Private Sub Workbook_Open()

        Dim cOb As Variant
        Dim FolderName As String, FolderExists As String
        FolderName = "C:\Users\" & Environ("username") & "\Desktop\[B]MyFolder[/B]\" '---->Change folder name to suit. Change the AAAAA to your requirement.
        FolderExists = Dir(FolderName, vbDirectory)
    
Application.ScreenUpdating = False
       
       If FolderExists = vbNullString Then
            MsgBox "The desktop folder doesn't exist. Creating a new folder now.", vbExclamation, "INFORMATION"
            cOb = CreateObject("wscript.shell").specialfolders("Desktop") & "\" & "[B]MyFolder[/B]" '--->Change folder name to suit.
            MkDir cOb
            Else: Exit Sub
       End If
    
Application.ScreenUpdating = True

End Sub

 

[renrut_5]

I am having similar issues and was wondering if any further help could be warranted. I have attached my in house file in hopes that someone can assist. I need to be able to use this spreadsheet twice for each "RMA". One for inbound pictures and one for outbound pictures. These two access times may be as much as thee to six weeks apart depending on customer payment, repair time, etc. Right now if I keep the spreadsheet open the two will open with no issues. However, if I close the spreadsheet and then try to go back to an already posted RMA I get a "path not found" error. Please assist.