在 Linux 中打开文件夹路径的 LibreOffice 基本命令
LibreOffice basic command to open a folder path in Linux
我有一个在 Windows 中创建的宏电子表格,它获取电子表格当前所在的文件夹路径,然后在该目录中打开一个文件夹。
我使用命令 shell ("C:\Windows\explorer.exe",1,FolderPath)
,其中“FolderPath”是包含要打开的最终文件夹路径的字符串。在 Linux 中是否有与此命令等效的命令,当我在使用它时,还有 MAC OS?
首先,想办法找出您的宏 运行 在哪个操作系统上(提示:查看 Help)
Function OSName() As String
Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess
GlobalScope.Basiclibraries.LoadLibrary("Tools")
keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
OSName = keyNode.GetByName("System")
End Function
现在您可以使用特定于每个系统的命令:
...
Select Case OSName
Case "WIN"
OpenCommand = "explorer"
Case "MAC"
OpenCommand = "open"
Case "UNIX"
OpenCommand = "xdg-open"
End Select
Shell (OpenCommand, 1, FolderPath)
...
我有一个在 Windows 中创建的宏电子表格,它获取电子表格当前所在的文件夹路径,然后在该目录中打开一个文件夹。
我使用命令 shell ("C:\Windows\explorer.exe",1,FolderPath)
,其中“FolderPath”是包含要打开的最终文件夹路径的字符串。在 Linux 中是否有与此命令等效的命令,当我在使用它时,还有 MAC OS?
首先,想办法找出您的宏 运行 在哪个操作系统上(提示:查看 Help)
Function OSName() As String
Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess
GlobalScope.Basiclibraries.LoadLibrary("Tools")
keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
OSName = keyNode.GetByName("System")
End Function
现在您可以使用特定于每个系统的命令:
...
Select Case OSName
Case "WIN"
OpenCommand = "explorer"
Case "MAC"
OpenCommand = "open"
Case "UNIX"
OpenCommand = "xdg-open"
End Select
Shell (OpenCommand, 1, FolderPath)
...