Click here to Skip to main content
11,708,312 members (65,057 online)

Visual Basic

 
GeneralRe: Timer for Internet connection Pin
Dave Kreskowiak21-Dec-12 4:11
mvpDave Kreskowiak21-Dec-12 4:11 
Questioninstr function not accepting arguments VB.net Pin
xman12519-Dec-12 2:10
memberxman12519-Dec-12 2:10 
AnswerRe: instr function not accepting arguments VB.net Pin
Dave Kreskowiak19-Dec-12 3:13
mvpDave Kreskowiak19-Dec-12 3:13 
AnswerRe: instr function not accepting arguments VB.net Pin
Zaf Khan19-Dec-12 5:37
memberZaf Khan19-Dec-12 5:37 
GeneralRe: instr function not accepting arguments VB.net Pin
xman12519-Dec-12 20:44
memberxman12519-Dec-12 20:44 
GeneralRe: instr function not accepting arguments VB.net Pin
xman12519-Dec-12 20:50
memberxman12519-Dec-12 20:50 
GeneralRe: instr function not accepting arguments VB.net Pin
Zaf Khan19-Dec-12 21:05
memberZaf Khan19-Dec-12 21:05 
AnswerRe: instr function not accepting arguments VB.net Pin
Eddy Vluggen20-Dec-12 1:56
memberEddy Vluggen20-Dec-12 1:56 
QuestionRe: instr function not accepting arguments VB.net Pin
Zaf Khan19-Dec-12 21:02
memberZaf Khan19-Dec-12 21:02 
GeneralRe: instr function not accepting arguments VB.net Pin
Dave Kreskowiak20-Dec-12 1:47
mvpDave Kreskowiak20-Dec-12 1:47 
AnswerRe: instr function not accepting arguments VB.net Pin
Mike Meinz23-Jan-13 3:36
memberMike Meinz23-Jan-13 3:36 
QuestionIs it possible to change Import directives dynamically at run time. Pin
Member 342716218-Dec-12 10:32
memberMember 342716218-Dec-12 10:32 
AnswerRe: Is it possible to change Import directives dynamically at run time. Pin
Eddy Vluggen18-Dec-12 21:57
memberEddy Vluggen18-Dec-12 21:57 
Questionconcatenate 2 scripts Pin
Nitro7617-Dec-12 2:54
memberNitro7617-Dec-12 2: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 21:55
memberEddy Vluggen18-Dec-12 21:55 
Questionsystem.net.mail - manage multiple attachment Pin
alejx14-Dec-12 13:00
memberalejx14-Dec-12 13:00 
AnswerRe: system.net.mail - manage multiple attachment Pin
Eddy Vluggen17-Dec-12 1:17
memberEddy Vluggen17-Dec-12 1:17 
QuestionHelp with Class Library and "Roll Your Own MsgBox" Pin
w4uoa13-Dec-12 5:19
memberw4uoa13-Dec-12 5:19 
AnswerRe: Help with Class Library and "Roll Your Own MsgBox" Pin
Simon_Whale13-Dec-12 5:38
memberSimon_Whale13-Dec-12 5:38 
AnswerRe: Help with Class Library and "Roll Your Own MsgBox" Pin
Richard MacCutchan13-Dec-12 5:40
mvpRichard MacCutchan13-Dec-12 5:40 
Questionnewbie Pin
vaskoedo12-Dec-12 2:16
membervaskoedo12-Dec-12 2:16 
AnswerRe: newbie Pin
Eddy Vluggen12-Dec-12 3:02
memberEddy Vluggen12-Dec-12 3:02 
QuestionExcel.XlChartType.xlLine chart not draw using VB.Net Pin
D.Manivelan11-Dec-12 19:32
memberD.Manivelan11-Dec-12 19:32 
AnswerRe: Excel.XlChartType.xlLine chart not draw using VB.Net Pin
Eddy Vluggen12-Dec-12 3:00
memberEddy Vluggen12-Dec-12 3:00 
QuestionMake a DataGridView column editable Pin
John Waclawski11-Dec-12 11:01
memberJohn Waclawski11-Dec-12 11:01 
AnswerRe: Make a DataGridView column editable Pin
Eddy Vluggen12-Dec-12 2:58
memberEddy Vluggen12-Dec-12 2:58 
Questionportability/deployment, VB/Database Pin
Member 838594911-Dec-12 4:34
memberMember 838594911-Dec-12 4:34 
AnswerRe: portability/deployment, VB/Database Pin
Eddy Vluggen11-Dec-12 4:51
memberEddy Vluggen11-Dec-12 4:51 
GeneralRe: portability/deployment, VB/Database Pin
Member 838594911-Dec-12 5:04
memberMember 838594911-Dec-12 5:04 
QuestionUSBMuxd Pin
D_Wilbur10-Dec-12 9:19
memberD_Wilbur10-Dec-12 9:19 
AnswerRe: USBMuxd Pin
Eddy Vluggen11-Dec-12 2:24
memberEddy Vluggen11-Dec-12 2:24 
Questionneed vb.net DMS system Pin
Member 967170910-Dec-12 0:10
memberMember 967170910-Dec-12 0:10 
AnswerRe: need vb.net DMS system Pin
Dave Kreskowiak10-Dec-12 2:21
mvpDave Kreskowiak10-Dec-12 2:21 
GeneralRe: need vb.net DMS system Pin
Simon_Whale11-Dec-12 5:36
memberSimon_Whale11-Dec-12 5:36 
AnswerRe: need vb.net DMS system Pin
Paul Conrad13-Dec-12 8:56
memberPaul Conrad13-Dec-12 8:56 
AnswerRe: need vb.net DMS system Pin
PrissySC26-Dec-12 2:48
memberPrissySC26-Dec-12 2:48 
Questionparent/child bindingsource save new fails Pin
PrissySC8-Dec-12 11:03
memberPrissySC8-Dec-12 11:03 
AnswerRe: parent/child bindingsource save new fails Pin
Eddy Vluggen11-Dec-12 2:21
memberEddy Vluggen11-Dec-12 2:21 
GeneralRe: parent/child bindingsource save new fails Pin
PrissySC26-Dec-12 2:47
memberPrissySC26-Dec-12 2:47 
Questionread mail from yahoo using yahoo api in vb.net Pin
puvanar7-Dec-12 23:01
memberpuvanar7-Dec-12 23:01 
AnswerRe: read mail from yahoo using yahoo api in vb.net Pin
Eddy Vluggen9-Dec-12 23:14
memberEddy Vluggen9-Dec-12 23:14 
QuestionMissing Toolbar Pin
No-e6-Dec-12 6:09
memberNo-e6-Dec-12 6:09 
AnswerRe: Missing Toolbar Pin
Peter_in_27806-Dec-12 13:08
memberPeter_in_27806-Dec-12 13:08 
AnswerRe: Missing Toolbar Pin
Eddy Vluggen6-Dec-12 14:23
memberEddy Vluggen6-Dec-12 14:23 
QuestionHow to insert xml to dataset.xsd using vb.net? Pin
Akbarblack5-Dec-12 19:20
memberAkbarblack5-Dec-12 19:20 
QuestionDrawing an image onto a form Pin
tuffhamster2-Dec-12 8:13
membertuffhamster2-Dec-12 8:13 
AnswerRe: Drawing an image onto a form Pin
Eddy Vluggen3-Dec-12 0:53
memberEddy Vluggen3-Dec-12 0:53 
Questionprogramming thesis VB.net Pin
enzomatriz30-Nov-12 14:48
memberenzomatriz30-Nov-12 14:48 
AnswerRe: programming thesis VB.net Pin
Dave Kreskowiak1-Dec-12 3:17
mvpDave Kreskowiak1-Dec-12 3:17 
AnswerRe: programming thesis VB.net Pin
Zaf Khan1-Dec-12 10:01
memberZaf Khan1-Dec-12 10:01 

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
Web01 | 2.8.150819.1 | Last Updated 30 Aug 2015
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid