create new folder

[jono261970]

Hello,

I have a directory called USERS which contains about 200 user folders. What I now have to do is create a new folder in each of them called "MYWORK".


for example;

d:\users\jblogs

d:\users\jblogs\mywork

Is there anyway this can be acomplished in VB automatically.

thanks in advance

jono

 

[vb5prgrmr]

[tt]
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> &quot;&quot; ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> &quot;.&quot; And MyName <> &quot;..&quot; Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
MkDir MyPath & MyName & &quot;\mywork&quot;
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

[/tt]

 

[cj44]

Dim strDir As String

strDir = Dir(&quot;C:\Users\*.*&quot;, vbDirectory)
Do Until Len(strDir) = 0
If Left(strDir, 1) <> &quot;.&quot; Then
MkDir &quot;C:\Users\&quot; & strDir & &quot;\MYWORK&quot;
End If
strDir = Dir()
Loop

 

[JustinEzequiel]

Option Explicit

Private Sub Command1_Click()
  Dim oSub As Object
  Dim oBase As Object
  Dim oFSO As Object
  Dim sBase As String
  Dim sNew As String
  Dim sNewPath As String
  
  sBase = "d:\users\"
  sNew = "mywork"
  
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  Set oBase = oFSO.GetFolder(sBase)
  
  For Each oSub In oBase.SubFolders
    sNewPath = oSub.Path & "\" & sNew
    If Not oFSO.FolderExists(sNewPath) Then
      If oFSO.FileExists(sNewPath) Then
        MsgBox "file with same name already exists"
      Else
        oSub.SubFolders.Add sNew
      End If
    End If
  Next
End Sub