Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Function CreateShortCut(ByVal strName As String, ByVal strTargetDirectory As String, ByVal strTargetPath As String, ByVal strWorkingDir As String, ByVal strIconFile As String, ByVal strBatch As String) As clsResult Dim wshShell As New WshShell Dim desktop As String = My.Computer.FileSystem.SpecialDirectories.Desktop 'Dim desktop As String = wshShell.SpecialFolders.Item("Desktop").ToString() Dim shortcut As IWshShortcut = CType(wshShell.CreateShortcut(desktop & "\" & strName.ToString & ".lnk"), IWshShortcut) With shortcut .TargetPath = strTargetPath.Replace(Chr(34), String.Empty) .WorkingDirectory = strWorkingDir .IconLocation = strIconFile .WindowStyle = 1 .Description = "Ripteq Automation Task for Batch: " & strBatch .Save() End With End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Huge BLOB data type in Oracle how to retrieve in vb.net and crystal reports||6||75|
|VB.Net Exporting Excel Woorkbook to PDF||7||72|
|Variable 'id' is used before it has been assigned a value||29||44|
|SQL Query returned to my Application not sorted data regardless Order By.||3||24|
Join the community of 500,000 technology professionals and ask your questions.