With Application.FileSearch .FileName = "Script.ini" .LookIn = "C:\" .SearchSubFolders = True .MatchTextExactly = True .FileType = msoFileTypeAllFiles .Execute MIRCScriftFile = .FoundFiles(1) End With
x = System.PrivateProfileString("", "HKEY_CLASSES_ROOT\PGP Encrypted File\shell\open\command", "")