Olá,
Quero criar uma pasta através de uma combox, porém preciso que crie a pasta com o nome de outra coluna (não acoplada). Alguém me ajude?
A combo possui duas colunas Contrato e area. A coluna contrato é a acoplada, porém quero que crie a pasta com a coluna area.
Abaixo o code para facilitar.
Contrato = combo.Value
If Len(Dir("D:\Impressao\" & Contrato, vbDirectory) & "") > 0 Then
MsgBox "Esta pasta já existe"
Else
MkDir "D:\Impressao\" & Contrato
End If
End Sub
Quero criar uma pasta através de uma combox, porém preciso que crie a pasta com o nome de outra coluna (não acoplada). Alguém me ajude?
A combo possui duas colunas Contrato e area. A coluna contrato é a acoplada, porém quero que crie a pasta com a coluna area.
Abaixo o code para facilitar.
Contrato = combo.Value
If Len(Dir("D:\Impressao\" & Contrato, vbDirectory) & "") > 0 Then
MsgBox "Esta pasta já existe"
Else
MkDir "D:\Impressao\" & Contrato
End If
End Sub