Update UDF for Win 10

[picklefactory]

Hi folks
I have a simple UDF just to compare text files and highlight any lines between the two that do not match, it simply runs the basic DOS file compare function but just simplifies the usage. Just had my work pc upgraded to Win 10 (Yep... just), and now find that this doesn't work any more, and I don't know if it's
a/ Win 10 doesn't support this function anymore or
b/ The code just needs updating to suit.
Would anyone have an inkling at all please?
Thanks

Sub CompareFiles()
' Sub to run DOS File Compare function without all the typing
   Dim varFile1, varFile2, varFile3 ' Set variable names
   varFile1 = Application.GetOpenFilename("All Files (*.*), *.*", , _
                        "Select first comparison file") ' Open Explorer window to select 1st program to compare
   If TypeName(varFile1) = "Boolean" Then Exit Sub
   varFile2 = Application.GetOpenFilename("All Files (*.*), *.*", , _
                        "Select second comparison file") ' Open Explorer window to select 2nd program to compare
   If TypeName(varFile2) = "Boolean" Then Exit Sub
   varFile3 = Application.GetSaveAsFilename(Title:="Specify output file name") ' Open Explorer window to designate path and file name
   'for resulting comparison file
   If TypeName(varFile3) = "Boolean" Then Exit Sub
   Shell "cmd.exe /c ""fc /n """ & varFile1 & """ """ & varFile2 & """ >""" & varFile3 & """"

End Sub

 

[JackDanIce]

A guess is DOS command prompts can't be launched programtically due to Win 10 security? Have you checked with those who installed the upgrade?

 

[picklefactory]

Thanks Jack
Never gave that a thought TBH, it's a new pc entirely. I'll fire a question to our IT.

 

[Fennek]

Hallo, if there are security issues, try to write your Shell-command in a *.bat- file. This will not work either, but if you create a shortcut (*.lnk) and address this in the VBA-Shell it shoud work. regards

 

[picklefactory]

Thanks Fennek
The batch file is easy, but how do I create/use the *.lnk shortcut? Is that just as easy?

 

[JackDanIce]

Good luck pickle!

 

[picklefactory]

Haha... thanks Jack, that doesn't fill me with confidence. I've been aGoogling, and it doesn't look simple.