VBA语句故障调试

wangfeiyu0022

Sub AddWatermarkAndOverwriteImages()
    Dim folderPath As String
    Dim fileName As String
    Dim watermarkText As String
    Dim command As String
    Dim shellResult As Long

    folderPath = "d:\Desktop\shiyan\"

    watermarkText = "WANGFEIYU"

    ChDir "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI"

    fileName = Dir(folderPath & "*.jpg")

    Do While fileName <> ""

        command = "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI\magick """ & folderPath & fileName & """ -gravity SouthEast -pointsize 36 -fill white -annotate 0 """ & watermarkText & """ -overwrite """ & folderPath & fileName & """"

        shellResult = Shell(command, vbHide) ' 使用vbHide来隐藏命令行窗口
               
        fileName = Dir
    Loop

    MsgBox "水印添加完成，并覆盖了原文件！"
End Sub




黄色的这段提示错误编号53，，，，，，哪里有问题呢，大神们帮帮我