Tengo un formulario que se asocia a varias tablas (relacionadas) uno de esos campo es el ID (que se genera automáticamente), la idea sería que al pulsarlo abriera un carpeta (la creara en caso de no estar) que tiene el mismo nombre que el ID.
Cual sería el directorio donde estaría ese carpeta? En el mismo que esta la base de datos...
Actualmente el código que tengo es:
Código: Seleccionar todo
REM ***** BASIC *****
Sub OpenSpecificFolder(Event As Object)
Dim oForm As Object
Dim idExpediente as string
Dim directorio
idExpediente = Event.Source.Model.Parent.Parent.getByName("fmtID").CurrentValue
directorio = DirectoryNameoutofPath(ThisComponent.Parent.getURL(), "/")
If NOT FileExists(directorio & "/" & idExpediente) Then
print "No existe"
MkDir (directorio & "/" & idExpediente)
Else
print "Existe"
End If
print directorio & "/" & idExpediente
End Sub