代码之家 › 专栏 › 技术社区 › chens11111010001

有人能帮我如何在vba中初始化对象文件夹吗

ms-word vba .net

chens11111010001 · 技术社区 · 11 月前

我有个问题

案例1:

downloadFolder = "C:\Users\ACER\AppData\Local\Temp\"
If Not shellApp.Namespace(downloadFolder) Is Nothing Then
   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If`

===>>>>输出:“错误:C:\Users\ACER\AppData\Local\Temp”

案例2:

If Not shellApp.Namespace("C:\Users\ACER\AppData\Local\Temp\") Is Nothing Then
   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If`

===>>>>输出:“成功”

1 回复 | 直到 11 月前

Nelson 11 月前

shellApp。命名空间需要一个变量作为参数。如果“downloadFolder”被定义为字符串,则会发生此“错误”。

例如:

Dim downloadFolder as String 
downloadFolder = "C:\Users\ACER\AppData\Local\Temp\"

If Not shellApp.Namespace(downloadFolder) Is Nothing Then   
    MsgBox "Success"
Else
    MsgBox "Error: " & downloadFolder
End If

将返回“错误:C:\Users\ACER\AppData\Local\Temp”

为了避免这种情况,您可以将“downloadFolder”定义为变量:

Dim downloadFolder as Variant

或者将“downloadFolder”放在括号之间,如下所示:

If (Not shellApp.Namespace((downloadFolder)) Is Nothing) Then

推荐文章

A B · C#Excel自动调整列避免长文本时出错

4 月前

Alireza Noori · 全局配置用于本地化的MudDontext验证消息?

4 月前

Martyn C · 自定义StringEnumConverter未拾取所有枚举

4 月前

Nwerx_user · 在C#中,如何在不使用static关键字的情况下使用类外的方法?

5 月前

pseudodev · 失败的测试仅显示堆栈跟踪,不显示完整日志

5 月前

user19291301 · 平行。ForEachAsync不会更改IEnumerable项的属性

5 月前

CactusCake · if语句中应有分号

6 月前

LemonPotion · SaveChangesAsync期间EF Core中的DbUpdateConcurrenty异常

6 月前

Bin4ry · 子文件夹中的应用程序设置

6 月前

enflky · 如何修改Winforms TabControl中所有选项卡中的WebView2内容?

6 月前