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 Expandir vistaContraer vista
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
El ultimo print tendría que cambiarlo por el "comando" para la carpeta (en principio solo estará en windows pero que fuera compatible con linux tambien). No existe el OpDir no?
