Macro no Calc - Criar pasta com nome de célula. GNU/Linux

[DannyMooreFernandes]

Olá! Necessito constantemente criar pastas em um diretório específico, referente a tarefas que realizo. Nesse diretório salvo documentos para análise.

Ví em outro tópico como criar pastas no Windows, especificando o diretório e nome. Mas necessito criar no Linux, nesse caso teria que dar alguma permissão?

No caso, tenho um intervalo de células com os nomes de pastas (B3:I3).

É possível criar todas as pastas do intervalo ao executar a macro?

[schiavinatto]

Ola @DannyMooreFernandes , testar pesquisei no ChatGPT

Sub CriarVariasPastas()
    Dim oPlanilha As Object
    Dim oCelulas As Object
    Dim oCelula As Object
    Dim i As Integer
    Dim sNomePasta As String
    Dim sDiretorioBase As String
    Dim sCaminhoCompleto As String
    Dim oFS As Object
    
    ' Define a planilha ativa
    oPlanilha = ThisComponent.Sheets(0)
    
    ' Faixa de células de B3 até I3 (colunas 1 a 8, linha 2 - índice começa em 0)
    oCelulas = oPlanilha.getCellRangeByPosition(1, 2, 8, 2)
    
    ' Caminho base (altere conforme seu sistema)
    sDiretorioBase = "/home/seu_usuario/Documentos/Projetos/"  ' Para Linux
    ' sDiretorioBase = "C:\MeusDocumentos\Projetos\"           ' Para Windows
    
    ' Objeto para manipulação de arquivos
    oFS = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
    
    ' Loop nas células da linha 3 (B3 até I3)
    For i = 0 To oCelulas.getColumns().getCount() - 1
        oCelula = oCelulas.getCellByPosition(i, 0)
        sNomePasta = Trim(oCelula.String)
        
        If sNomePasta <> "" Then
            sCaminhoCompleto = sDiretorioBase & sNomePasta
            If Not oFS.exists(sCaminhoCompleto) Then
                oFS.createFolder(sCaminhoCompleto)
            End If
        End If
    Next i

    MsgBox "Pastas criadas com base nas células B3 até I3."
End Sub