Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
<html> <head> <title>Network Drives</title> <HTA:APPLICATION APPLICATIONNAME="Network Drives!" ID="myNetworkDrives" VERSION="1.0" /> </head> <script language="VBScript"> Sub Window_OnLoad 'This method will be called when the application loads 'Add your code here window.resizeto 640,480 window.resizeto 640,480 Set objFSO = CreateObject("Scripting.FileSystemObject") strPath = objFSO.GetAbsolutePathName(".") Set objFolder = objFSO.GetFolder(strPath) jpgList = "" For Each objFile In objFolder.Files If InStr(objFile.Name, "NetDrv") <> 0 Then jpgList = jpgList & objFile.Name & "|" End If Next jpgList = Split(jpgList,"|") window.document.body.background = jpgList(getRandomNumber(0, UBound(jpgList)-1)) End Sub Function getRandomNumber(low,high) intHighNumber = high intLowNumber = low Randomize getRandomNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber) End Function </script> </body> </html>
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.