Advertisement
RJSN

App-V 4 AssetDir Generator

Nov 4th, 2013
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.96 KB | None | 0 0
  1. '==============================================================================
  2. '
  3. ' NAME: AssetDirGenerator.vbs
  4. '
  5. ' SITE  : HTTP://ITTECHLOG.WORDPRESS.COM
  6. '
  7. ' COMMENT: This script creates a unique 8.3 folder.
  8. '==============================================================================
  9.  
  10. Option Explicit
  11.  
  12. Dim AantalChar, AssetDrive, intRandom, teller, strFolder, ObjFSO, objFolder, Result
  13.  
  14. AantalChar = 8
  15. AssetDrive = "Q:\"
  16.  
  17. Randomize Timer
  18.  
  19.  
  20. For teller = 1 to AantalChar step 1
  21.     GetRandomChar
  22.     strFolder = strFolder  & chr(intRandom)
  23. Next
  24.  
  25. Set ObjFSO = CreateObject("Scripting.FileSystemObject")
  26.  
  27. IF objFSO.FolderExists(AssetDrive) Then
  28.     Set objFolder = objFSO.CreateFolder(AssetDrive & strFolder)
  29. END IF
  30.  
  31. Result = InputBox("Folder " & AssetDrive & strFolder  & " gemaakt." ,"Random AssetDir generator",AssetDrive & strFolder)
  32.  
  33. Sub GetRandomChar
  34.     intRandom = Fix(rnd * 42) + 48
  35.     If intRandom > 57 and intRandom < 65 then GetRandomChar
  36. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement