1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
|
option explicit
'Définition de variable
Dim foldername, objfso, objrootfolder, objsubfolder, stroutput
'Demande à l'utilisateur l'emplacement du fichier
foldername = inputbox("Quel dossier voulez-vous scanner ? (chemin UNC)")
'Listage des dossiers et des sous-dossiers
Set objfso = createobject("scripting.filesystemobject")
Set objrootfolder = objfso.getfolder(foldername)
Set objsubfolder = objrootfolder.subfolders
'Boucle de listage
For Each objrootfolder in objsubfolder
stroutput = stroutput & objrootfolder.name
stroutput = stroutput & vbCrLf
Next
'Affichage des dossier à l'écran
msgbox stroutput
'Définition de variable
'Dim outputfile
'Création d'un fichier texte pour stocker les noms des dossiers
'Set stroutput = objfso.createtextfile("C:\Result.txt")
dim CreateFolder, CreateFile, oFSO, oFolder, oFile, oText
CreateFolder = inputbox("Entrez le nom du dossier à créer")
CreateFile = inputbox("Entrez le nom du fichier à créer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.CreateFolder("C:\" & CreateFolder)
'Set oFile = oFSO.CreateTextFile("C:\" & CreateFolder & "\" & CreateFile & ".txt")
Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile ,8,true)
oText.WriteLine(stroutput)
Const ForReading = 1, ForWriting = 2
Set oText = oFSO.OpenTextFile("C:\" & CreateFolder & "\" & CreateFile, ForReading)
while Not oText.AtEndOfStream
wscript.echo oText.ReadLine
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
Dim objWMIService, objNewShare, strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\" & oText &", " & oText , FILE_SHARE, _
MAXIMUM_CONNECTIONS)
msgbox errReturn
Wend
oText.Close |
Partager