删除文件夹中的文件的代码

Question

以下是我的代码......

dim ws as worksheet, rng As Range, filetodelete As String, cmb As ComboBox

Set ws = Sheets("Sheet1")
Set rng = ws.Range("B11") '(Storage Location of File: E:\ABC)
Set cmb = Me.ComboBox1
filetodelete = rng & "\" & cmb.Text & ".pdf"

Kill filetodelete

代码与Userform命令按钮相关联。命令按钮将删除存储位置中的文件，使用组合框检查文件名。在运行代码时，未显示运行时错误文件。

请告知。

由于 萨勒曼

Answer 1

如何

cmb

或

cmb.Value

Answer 2

使用

cmb.Caption

不

cmb.Text

那应该解决它。