Luan, boa tarde, edite o código conforme as suas necessidades. Em base, é isso:
Dim ConferePasta As String
ConferePasta = “C:UsersLuanDesktopNome_da_pasta”
If Dir(ConferePasta, vbDirectory) = “” Then
MkDir ConferePasta
End If
Se a resposta lhe foi útil, clique no joinha!
Postado : 26/01/2017 10:52 am