strDrive = Chr(i) & “:”\n<\/PRE>\nIn turn, that means that \u2013 the first time through the loop \u2013 the variable strDrive is equal to this: C:<\/B>. <\/P>\n
Which, now that you mention it, does<\/I> look an awful lot like a drive letter, doesn\u2019t it?<\/P>\n
That brings us to this line of code:<\/P>
If objDictionary.Exists(strDrive) Then\n<\/PRE>\nHere we\u2019re using the Exists<\/B> method to determine whether or not that first drive letter appears in the Dictionary object. Let\u2019s assume that it does. That means that the drive letter is already in use, and thus not available for drive mapping. Consequently, we don\u2019t do anything at all. (Well, other than circling around and repeating the process with the next value in the loop.) <\/P>\n
Now, suppose that the drive letter can\u2019t<\/I> be found in the Dictionary. (That is, suppose the Exists method returns False.) That can only mean one thing: this drive letter is not<\/I> in use, and thus is<\/I> available for drive mapping. Consequently, we use this line of code to add the drive letter (and a carriage return-linefeed character) to a variable named strDrives:<\/P>strDrives = strDrives & strDrive & vbCrLf\n<\/PRE>\nGot that? By the time we exit the loop, all the available drive letters will be safely tucked away in the variable strDrives.<\/P>\n
Now all we have to do is figure out how to get those drive letters into our list box. To that end, our next step is to use the Split<\/B> function to create an array named arrDrives; as you can see, we do this by splitting the variable strDrive on the carriage return-linefeed character (vbCrLf):<\/P>arrDrives = Split(strDrives, vbCrlf)\n<\/PRE>\nIn turn, that gives us an array consisting of the following items (on our test computer), items that correspond quite nicely to the available drive letters on the computer:<\/P>\n
\n\n\n| \u2022<\/TD>\n | \n F:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n G:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n H:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n I:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n J:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n K:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n L:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n N:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n O:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n P:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n Q:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n R:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n S:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n T:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n U:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n V:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n W:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n Y:<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n Z:<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n And now \u2013 finally \u2013 we can add the available drive letters to the list box (and don\u2019t worry; the script zips by much quicker than the explanation does):<\/P> For Each strDrive In arrDrives\n Set objOption = Document.createElement(“OPTION”)\n objOption.Text = strDrive\n objOption.Value = strDrive\n AvailableDrives.Add(objOption)\nNext\n<\/PRE>\nAll we\u2019ve done here set up a For Each loop to cycle through the collection of available drive letters. For each item in the collection we create an instance of the HTML Option object; each Option object is equivalent to an item in the list box. That\u2019s what this line of code is for:<\/P> Set objOption = Document.createElement(“OPTION”)\n<\/PRE>\nWe then use these two lines of code to configure the Text<\/B> and Value<\/B> properties for the item:<\/P>objOption.Text = strDrive\nobjOption.Value = strDrive\n<\/PRE>\nIf you haven\u2019t done a lot of work with HTML, the Text is simply the text that appears in the list box. The Value, meanwhile, is the data reported to a subroutine when a given option is chosen. Text and Value for an option do not have<\/I> to be identical. We made them identical here simply because it makes sense: you want the drive letter to show up in the list box, and you probably want the exact same drive letter to be used in your subroutine.<\/P>\n After configuring the Option object we add the new item to the list box like so:<\/P> AvailableDrives.Add(objOption)\n<\/PRE>\nAs you can see, all we do is refer to the list box (AvailableDrives) and call the Add<\/B> method. Along the way, we pass Add a single parameter: the object reference to our Option object. And then we loop around and repeat the process with the next item in the array. When that\u2019s<\/I> finished, all the available drive letters will show up in a list box, a list box that should look something like this: <\/P>![\"Spacer\"](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/qanda\/dynamiclist.jpg\") \n Now, what about that more-complete solution, the one that actually maps a drive for us? Well, without any further explanation, here\u2019s one way to do that. To use this HTA, select a drive letter, then click the Map Drive<\/B> button. When the dialog box appears, type in the UNC path to the network drive (e.g., \\\\atl-fs-01\\public). Click OK<\/B> and two things will happen:<\/P>\n\n\n\n| \u2022<\/TD>\n | \n The drive will be mapped<\/P><\/TD><\/TR>\n | \n| \u2022<\/TD>\n | \n The list box will refresh itself (because a previously-available drive letter is no longer available)<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n Here\u2019s the code:<\/P> <SCRIPT Language=”VBScript”>\n Sub Window_onLoad\n Set objDictionary = CreateObject(“Scripting.Dictionary”)<\/p>\n strComputer = “.”<\/p>\n Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n Set colDisks = objWMIService.ExecQuery(“Select * from Win32_LogicalDisk”)<\/p>\n For Each objDisk in colDisks\n objDictionary.Add objDisk.DeviceID, objDisk.DeviceID\n Next<\/p>\n For i = 67 to 90\n strDrive = Chr(i) & “:”\n If objDictionary.Exists(strDrive) Then\n Else\n strDrives = strDrives & strDrive & vbCrLf\n End If\n Next<\/p>\n arrDrives = Split(strDrives, vbCrlf)<\/p>\n For Each strDrive In arrDrives\n Set objOption = Document.createElement(“OPTION”)\n objOption.Text = strDrive\n objOption.Value = strDrive\n AvailableDrives.Add(objOption)\n Next\n End Sub<\/p>\n Sub MapDrive\n If AvailableDrives.Value = “” Then\n Msgbox “Please select a drive letter.”\n Exit Sub\n End If\n strDrive = AvailableDrives.Value\n strPath = InputBox(“Please enter the network path:”)\n If strPath = “” Then\n Exit Sub\n End If\n Set objNetwork = CreateObject(“Wscript.Network”)\n objNetwork.MapNetworkDrive strDrive, strPath\n Location.Reload(True)\n End Sub\n<\/SCRIPT><\/p>\n <body>\n <select size=”5″ name=”AvailableDrives” style=”width:100px”><\/select><p>\n <input type=”button” value=”Map Drive” onClick=”MapDrive”>\n<\/body>\n<\/PRE>\n As for the Mariners, well, if anyone from the Seattle front office is reading this column (and, to be honest, we\u2019d really prefer that you were reading Baseball Digest<\/I> instead) just send email to scripter@microsoft.com (in English, if possible)<\/B><\/A> and make us an offer. We can\u2019t promise to accept that offer; why that would mean giving up a thrilling and rewarding career as a technical writer just for the chance to fly around the country playing baseball. But we\u2019ll definitely take it under consideration.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"Hey, Scripting Guy! I\u2019m using an HTA as a drive-mapping application. I\u2019d like to be clever about this and have the available drive letters appear in a list box. How can I dynamically show all the drive letters available on a computer?— JT Hey, JT. You know, just the other day the Scripting Guy who […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[3,4,185,12,5,30],"class_list":["post-63973","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-shared-folders-and-mapped-drives","tag-storage","tag-vbscript","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":" Hey, Scripting Guy! I\u2019m using an HTA as a drive-mapping application. I\u2019d like to be clever about this and have the available drive letters appear in a list box. How can I dynamically show all the drive letters available on a computer?— JT Hey, JT. You know, just the other day the Scripting Guy who […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63973","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=63973"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/63973\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=63973"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=63973"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=63973"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} | |
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n