Shell.BrowseForFolder 权限不够

最新推荐文章于 2023-08-02 13:28:00 发布
最新推荐文章于 2023-08-02 13:28:00 发布 · 973 阅读 · 0
文章标签：

#IE #JavaScript #ViewUI

本文介绍如何使用JavaScript通过ActiveX对象打开本地文件夹选择对话框，并提供了一个示例代码。如果遇到“書き込みできません”错误，请确保IE浏览器中未禁用未标记为安全的ActiveX控件。
In javascript

var Shell = new ActiveXObject("Shell.Application");
var RetI = Shell.BrowseForFolder(0, 'フォルダ選択ダイアログ', 1);


you can open local folder explore dialog to select a folder.

But if you encounter error with "書き込みできません"

please comfirm whether スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行　is set to "有効にする" in IE explore
BrowseForFolder参数详解图片
08-19
BrowseForFolder使用，参数详解。详细信息请参考http://blog.csdn.net/a8_8a/article/details/47783447
browseforfolder:用于文件夹浏览的增强对话框。-matlab开发
05-31
此增强功能允许用户： 1. 使用“复制粘贴”浏览2.从此对话框创建一个新文件夹 UIBROWSEFORFOLDER 标准 Windows 浏览文件夹对话框。 文件夹 = uibrowseforfolder( title_str, initial_path ) 输出：文件夹 = 选定的文件夹（如果对话框取消则为空字符串） 输入：title_str = 标题字符串（可选） initial_path = 初始路径（可选，默认为 PWD） 示例：folder = uibrowseforfolder - 默认标题和初始路径folder = uibrowseforfolder('Select results folder') - 默认初始路径folder = uibrowseforfolder([], 'C:\Program Files') - 没有标题 1.使用mex函数browsefor
浏览文件夹
Zezese的专栏
08-02 429
使用Shell.BrowseForFolder 方法 来浏览选择文件夹。
javascript BrowseForFolder Shell.Application 没有权限
regon的专栏
07-19 9058
微软msdn:  function fnGetMyPathJ()   {     var oShell = new ActiveXObject("Shell.Application");        var oFolder = new Object;     oFolder = oShell.BrowseForFolder(0, "Choose a folder", 0);        v
Shell API SHBrowseForFolder的用法
koko_han的专栏
08-10 3052
Code as bellow{ BROWSEINFO  bi; bi.hwndOwner=NULL; bi.pidlRoot=NULL; bi.pszDisplayName=NULL; bi.lpszTitle=NULL; bi.ulFlags=0; bi.lpfn =NULL; bi.iImage =0; LPCITEMIDLIST pidl=SHBrowseForFolder(&bi); if
function browseFolder(path) { try { var Message = "\u8bf7\u9009\u62e9\u6587\u4ef6\u5939"; //选择框提示信息 var Shell = new ActiveXObject("Shell.Application"); var Folder = Shell.BrowseForFolder(0, Message, 64, 17); //起始目录为：我的电脑 //var Folder = Shell.BrowseForFolder(0, Message, 0); //起始目录为：桌面 if (Folder != null) { Folder = Folder.items(); // 返回 FolderItems 对象 Folder = Folder.item(); // 返回 Folderitem 对象 Folder = Folder.Path; // 返回路径 if (Folder.charAt(Folder.length - 1) != "\\") { Folder = Folder + "\\"; } document.getElementById(path).value = Folder; return Folder; } } catch (e) { alert(e.message); } }，依据这个js代码，实现blazor的目录选择功能
07-24
在 Blazor 中实现类似 JavaScript 中 `ActiveXObject` 的 `Shell.Application.BrowseForFolder` 功能，直接通过浏览器端的 Blazor WebAssembly 是无法访问本地文件系统或调用 COM 对象的，因为这涉及浏览器的安全...
shell.application对象可以打开文件选择器并选择多个文件并返回地址吗
最新发布
11-06
在VBS中，Shell.Application常用的文件选择相关方法是BrowseForFolder，但它只能选择文件夹，不能选择文件，更不用说多文件选择了。 因此，结论是：使用Shell.Application对象无法直接打开文件选择器并选择多个文件...
Sub CATMain() Dim oDoc As Document Set oDoc = CATIA.ActiveDocument If Not TypeName(oDoc) = "ProductDocument" Then MsgBox "请先打开装配体文件！", vbCritical Exit Sub End If ' 用户参数输入框 Dim sPrefix As String, sSuffix As String Dim iStartNum As Integer, iStep As Integer Dim bOverwrite As Boolean sPrefix = InputBox("输入文件名前缀（留空忽略）：", "前缀设置") sSuffix = InputBox("输入文件名后缀（留空忽略）：", "后缀设置") iStartNum = CInt(InputBox("起始序号：", "序号设置", "1")) iStep = CInt(InputBox("序号步长：", "序号设置", "1")) bOverwrite = MsgBox("覆盖原文件？", vbYesNo + vbQuestion) = vbYes ' 遍历装配体组件 RenameComponents oDoc.Product.Products, sPrefix, sSuffix, iStartNum, iStep, bOverwrite MsgBox "批量重命名完成！", vbInformation End Sub ' 递归重命名函数 Sub RenameComponents(oProducts As Products, _ sPrefix As String, _ sSuffix As String, _ ByRef iCounter As Integer, _ iStep As Integer, _ bOverwrite As Boolean) Dim oProduct As Product For Each oProduct In oProducts ' 跳过隐藏文件[^1] If Not oProduct.Reference.Displayed Then GoTo NextProduct ' 处理子装配体（递归） If oProduct.Products.Count > 0 Then RenameComponents oProduct.Products, sPrefix, sSuffix, iCounter, iStep, bOverwrite End If Dim oDoc As Document Set oDoc = oProduct.Reference.Document ' 构建新文件名（含序号递增） Dim sNewName As String sNewName = sPrefix & GetOriginalName(oDoc) & sSuffix & "_" & Format(iCounter, "000") iCounter = iCounter + iStep ' 执行重命名 If bOverwrite Then oDoc.SaveAs oDoc.Path & "\" & sNewName & "." & GetExtension(oDoc) Else Dim sSavePath As String sSavePath = ChooseFolder() & "\" & sNewName & "." & GetExtension(oDoc) oDoc.SaveAs sSavePath End If NextProduct: Next End Sub ' 辅助函数：获取原始文件名 Function GetOriginalName(oDoc As Document) As String Dim sFullName As String sFullName = oDoc.Name GetOriginalName = Left(sFullName, InStrRev(sFullName, ".") - 1) End Function ' 辅助函数：获取文件扩展名 Function GetExtension(oDoc As Document) As String Select Case True Case TypeName(oDoc) = "PartDocument": GetExtension = "CATPart" Case TypeName(oDoc) = "ProductDocument": GetExtension = "CATProduct" End Select End Function ' 辅助函数：文件夹选择对话框 Function ChooseFolder() As String Dim oShell As Object Set oShell = CreateObject("Shell.Application") With oShell.BrowseForFolder(0, "选择保存目录", 0) If Not IsNull(.Self.Path) Then ChooseFolder = .Self.Path End With End Function 代码不能运行
11-05
| 权限不足 | 关闭只读模式再操作 | - | | 递归死循环 | 添加终止条件`Products.Count>0` | - | #### 6. 补充建议 1. 启用开发日志： ```vba CATIA.StartCommand "Log to File", "C:\CATIALog.txt" ``` 2. 使用...
上述代码提示弹出文件夹选择对话框部分不支持FileDialog函数，请优化代码。
06-08
考虑到用户可能是在C#环境中（因为引用[2]和[3]都是C#示例），我们将提供两种常见的方法：方法一：使用FolderBrowserDialog（简单，但自定义能力有限）方法二：使用Shell.Application的BrowseForFolder（通过COM，...
JavaScript 文件夹选择：两种实现方法与安全考量
`Shell.BrowseForFolder()`函数用于打开文件夹选择对话框，允许用户选择一个文件夹。这个函数接受四个参数：窗口句柄（通常为0表示顶级窗口）、对话框的提示文本、选项和起始路径。 ```javascript var Message = "\...
BrowseForFolder使用，参数详解
热门推荐
萧枫的专栏
08-19 1万+
Shell.BrowseForFolder可以创建一个对话框让用户选择一个文件夹，然后返回所选文件夹的Folder对象。可以实现获取文件夹的绝对路径。 然后可以实现文件夹的相关操作，如文件夹上传等等。
一个MFC风格的BrowseForFolder 封装类
dato0123
06-20 226
原文链接：CYABFFW: Yet Another BrowseForFolder Wrapper 以良好的MFC风格将Shell API函数SHBrowseForFolder()封装为一个CWnd子类。 使用示例1： CYABFFWdlg();if(IDOK==dlg.DoModal()){CStrings=dlg.GetPath();//Dosomethingwith`s' ...
用BrowseForFolder 和 GetOpenFilename 选取文件夹和文件名称
z_wenqian的专栏
04-28 6130
用BrowseForFolder 和 GetOpenFilename 选取文件夹和文件名称(纯粹自己看自己用)
browseForFolder打开本地文件夹
安徽锐锋科技-沐雨潇竹
02-10 589
BrowseForFolder功能打开MS Windows提供的对话框，用户可以在其中选择要打开的文件夹或创建新文件夹。语法：browseForFolder(Message:string) → string。注意该功能和路径语法组合使用 如：applicationHome。关于路径的语法自行在我优快云中检索 路径 2个字即可搜索到了！
文件定位弹出框BrowseForFolder
大象无形的专栏
07-10 1227
CString BrowseForFolder( HWND hWnd )//获取定位路径{ TCHAR szTitle[] = _T("Select a folder");  TCHAR  szDisplayName[MAX_PATH] = _T(""); TCHAR  szPath[MAX_PATH] = _T(""); BROWSEINFO bi;  bi.hwndOwner = hWnd; 
vb 带新建文件夹的文件夹浏览窗口 BrowseForFolder
SImonJ07的记事本
08-06 4471
感谢   Zezese（蓝酷云） 同学http://topic.csdn.net/t/20050807/23/4194587.htmlOption   Explicit         Private   Type   BROWSEINFOTYPE             hOwner   As   Long             pidlRoot   As   Long        
如何打开磁盘目录对话框(BrowseForFolder)
_ACME_的博客
05-04 4786
打开文件对话框相信很多人都已经懂了，那么如何通过打开对话框选择路径呢？这里就要介绍几个函数和结构体.//文件夹信息结构 typedef struct _browseinfo { HWND hwndOwner; //弹出目录对话框的父窗口 LPCITEMIDLIST pidlRoot;//ITEMIDLIST结构的地址，包含浏览时的初始根目录 //如果设为NULL则桌面目
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值