 Dim fs, f, f1, fc, s
    Dim folderspec

    folderspec = "e:\" & ch9

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    
If Me.ch6.Value = "DOS_NOTES" Then
Call fs.CopyFile(fc , DosDestination1, OverWrite)
End If
If Me.ch6.Value = "DOS_INSTRUCTIONS" Then
Call fs.CopyFile(fc , DosDestination2, OverWrite)
End If
If Me.ch6.Value = "DOS_PROCEDURES" Then
Call fs.CopyFile(fc , DosDestination3, OverWrite)
End If
If Me.ch6.Value = "DOS_CAS_ESPACES" Then
Call fs.CopyFile(fc , DosDestination4, OverWrite)
End If
   

 Call fs.CopyFile(fc , "E:\BASE_DOCUMENTATIONS_DP\DOS_CAS_ESPACES\", OverWrite)    
-----------------------------------------------------------------------------
Option Explicit

Private Sub btnPath_Click()

    Dim MyValue As String
    Dim subFldr As Object
    Dim msg As String
    Dim fldr As String

   
    MyValue = ch9.Value                      ' Selected Value of the cmbBOX

    fldr = application.Path & "\"

    If (Left(ch9.Value, 1) = "P") Then       ' If the Folder is Primary

        fldr = application.Path & "\"