Click here to Skip to main content
11,481,916 members (64,540 online)

Visual Basic

 
GeneralRe: instr function not accepting arguments VB.net Pin
Zaf Khan19-Dec-12 22:05
memberZaf Khan19-Dec-12 22:05 
AnswerRe: instr function not accepting arguments VB.net Pin
Eddy Vluggen20-Dec-12 2:56
memberEddy Vluggen20-Dec-12 2:56 
QuestionRe: instr function not accepting arguments VB.net Pin
Zaf Khan19-Dec-12 22:02
memberZaf Khan19-Dec-12 22:02 
GeneralRe: instr function not accepting arguments VB.net Pin
Dave Kreskowiak20-Dec-12 2:47
mvpDave Kreskowiak20-Dec-12 2:47 
AnswerRe: instr function not accepting arguments VB.net Pin
Mike Meinz23-Jan-13 4:36
memberMike Meinz23-Jan-13 4:36 
QuestionIs it possible to change Import directives dynamically at run time. [modified] Pin
Member 342716218-Dec-12 11:32
memberMember 342716218-Dec-12 11:32 
AnswerRe: Is it possible to change Import directives dynamically at run time. Pin
Eddy Vluggen18-Dec-12 22:57
memberEddy Vluggen18-Dec-12 22:57 
Questionconcatenate 2 scripts Pin
Nitro7617-Dec-12 3:54
memberNitro7617-Dec-12 3:54 
Hello all,

I made 2 scripts under, the first for search all folders and subfolders (named "prive") in my R: Drive and the second for search security groups(begin by FR_DEPT ou LTGFR) on a folder.
I want to concatenate scripts for each "prive" folder, it could search if groups are affected.
Can you help me please?
Thanks in advance

'------------------------------------- 1er script

Option Explicit

Dim path_start
Dim subfolder
Dim Myfso, result
Set Myfso = CreateObject("Scripting.FileSystemObject")

path_start = "R:"
subfolder = "prive"

result = Find(path_start, subfolder)



Function Find (strPath, strFileName)
Dim MyDir, MyFile, MySubDir
Dim strResult

If strFileName = Empty Then Exit Function
strFileName = Ucase(strFileName)

Set MyDir = Myfso.GetFolder(strPath)

For Each MyFile In MyDir.subFolders
If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
Next

For Each MySubDir In MyDir.SubFolders
strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
Next

Find = strResult

End Function

'---------------------------------- 2eme script





strFolderName = "Le dossier prive de mon 1er script"
Const INPUT1_FILE_NAME = "c:\test1.txt"

Const FOR_READING = 1, FOR_WRITING = 2, FOR_APPEND = 8


Const OVER_WRITE_EXISTING = True
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(INPUT1_FILE_NAME, FOR_APPEND,true)



Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings = _
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")
intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)

intControlFlags = objSD.ControlFlags

arrACEs = objSD.DACL



For Each objACE in arrACEs


if Left(objACE.Trustee.Name,7) = "FR_DEPT" then
f.write(strFolderName & " ")
f.write(objACE.Trustee.Domain & "\" & objACE.Trustee.Name + VbCrLf)

WScript.Echo strFolderName
WScript.Echo objACE.Trustee.Domain & "\" & objACE.Trustee.Name

else
if Left(objACE.Trustee.Name,5) = "LTGFR" then
f.write(strFolderName & " ")
f.write(objACE.Trustee.Domain & "\" & objACE.Trustee.Name + VbCrLf)

WScript.Echo strFolderName
WScript.Echo objACE.Trustee.Domain & "\" & objACE.Trustee.Name
end if


end if
next
AnswerRe: concatenate 2 scripts Pin
Eddy Vluggen18-Dec-12 22:55
memberEddy Vluggen18-Dec-12 22:55 
Questionsystem.net.mail - manage multiple attachment Pin
alejx14-Dec-12 14:00
memberalejx14-Dec-12 14:00 
AnswerRe: system.net.mail - manage multiple attachment Pin
Eddy Vluggen17-Dec-12 2:17
memberEddy Vluggen17-Dec-12 2:17 
QuestionHelp with Class Library and "Roll Your Own MsgBox" Pin
w4uoa13-Dec-12 6:19
memberw4uoa13-Dec-12 6:19 
AnswerRe: Help with Class Library and "Roll Your Own MsgBox" Pin
Simon_Whale13-Dec-12 6:38
memberSimon_Whale13-Dec-12 6:38 
AnswerRe: Help with Class Library and "Roll Your Own MsgBox" Pin
Richard MacCutchan13-Dec-12 6:40
mvpRichard MacCutchan13-Dec-12 6:40 
Questionnewbie Pin
vaskoedo12-Dec-12 3:16
membervaskoedo12-Dec-12 3:16 
AnswerRe: newbie Pin
Eddy Vluggen12-Dec-12 4:02
memberEddy Vluggen12-Dec-12 4:02 
QuestionExcel.XlChartType.xlLine chart not draw using VB.Net Pin
D.Manivelan11-Dec-12 20:32
memberD.Manivelan11-Dec-12 20:32 
AnswerRe: Excel.XlChartType.xlLine chart not draw using VB.Net Pin
Eddy Vluggen12-Dec-12 4:00
memberEddy Vluggen12-Dec-12 4:00 
QuestionMake a DataGridView column editable Pin
John Waclawski11-Dec-12 12:01
memberJohn Waclawski11-Dec-12 12:01 
AnswerRe: Make a DataGridView column editable Pin
Eddy Vluggen12-Dec-12 3:58
memberEddy Vluggen12-Dec-12 3:58 
Questionportability/deployment, VB/Database Pin
Member 838594911-Dec-12 5:34
memberMember 838594911-Dec-12 5:34 
AnswerRe: portability/deployment, VB/Database Pin
Eddy Vluggen11-Dec-12 5:51
memberEddy Vluggen11-Dec-12 5:51 
GeneralRe: portability/deployment, VB/Database Pin
Member 838594911-Dec-12 6:04
memberMember 838594911-Dec-12 6:04 
QuestionUSBMuxd Pin
D_Wilbur10-Dec-12 10:19
memberD_Wilbur10-Dec-12 10:19 
AnswerRe: USBMuxd Pin
Eddy Vluggen11-Dec-12 3:24
memberEddy Vluggen11-Dec-12 3:24 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web04 | 2.8.150520.1 | Last Updated 24 May 2015
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid