Issue With Command$

[yacyac]

I have a shortcut icon on my desktop pointing to my exe.

I am using the following code which allows me to drag and drop a list of files from Explorer to my desktop icon. Upon dropping the files on the desktop icon the program opens and the file names are added to list1.

The code works fine on my application computer, but when I install it on another computer I get the Not Allowed symbol on the desktop icon when I try to drop files onto it and of course nothing happens. I can not figure out why. Both computers are running WinXP

Dim cmds As String
Dim txt As String
Dim s As Variant
Dim i As Integer


cmds = Command$

s = Split(cmds, Chr$(34) & " " & Chr$(34))

For i = 0 To UBound(s)
txt = s(i)
txt = Replace(txt, Chr$(34), "")
List1.AddItem txt
Next i

 

[SBerthold]

Sounds like a security setting issue.

 

[yacyac]

That may be true that it is a security setting - how would i go about fixing the problem. Other programs on the same computer do allow drag and drop to the desktop icon without issues.