quote:

---

Originally posted by Nobody

How deep might the folder structure go?

---

Sub MoveThemAll()
    Dim strSrcBase As String
    Dim strDestBase As String
    Dim fsoX As New FileSystemObject
    Dim i, intLastLine As Integer
    Dim strDestPath, strFile, strXPath As String
    
    
    strSrcBase = "\\OLDSERVER\COMMONSHARE_IF_ANY\" 'with a trailing backslash
    strDestBase = "\\NEWSERVER\COMMONSHARE_IF_ANY\" 'with a trailing backslash
    intLastLine = 3 'number of significant line. This macro assumes that the file paths are in column A starting with row 1 and will write status output into columns B (for copy and/or create dest folder) and C (for delete)


    


    For i = 1 To intLastLine
        strXPath = Range("A" & Trim(Str(i))).Formula
        If fsoX.FileExists(strXPath) Then
            If Left(UCase(strXPath), Len(strSrcBase)) = UCase(strSrcBase) Then
                strFile = fsoX.GetFileName(strXPath)
                strDestPath = fsoX.GetParentFolderName(strXPath) & "\"
                strDestPath = Replace(UCase(strDestPath), UCase(strSrcBase), UCase(strDestBase))
                If Not fsoX.FolderExists(strDestPath) Then
                    MakeDestFolder (strDestPath)
                End If
                If fsoX.FolderExists(strDestPath) Then
                    fsoX.CopyFile strXPath, strDestPath & strFile
                    If fsoX.FileExists(strDestPath & strFile) Then
                        Range("B" & Trim(Str(i))).Formula = "copied successfuly"
                        fsoX.DeleteFile strXPath
                        If fsoX.FileExists(strXPath) Then
                            Range("C" & Trim(Str(i))).Formula = "delete failed"
                        Else
                            Range("C" & Trim(Str(i))).Formula = "deleted successfuly"
                        End If
                    Else
                        Range("B" & Trim(Str(i))).Formula = "copy failed"
                    End If
                Else
                     Range("B" & Trim(Str(i))).Formula = "Don't seem to be able to create " & strDestPath
                End If
            End If
        End If
    Next i
End Sub


Sub MakeDestFolder(ByVal xPath As String)
    Dim fsoX As New FileSystemObject
    Dim xPF As String
    xPF = fsoX.GetParentFolderName(xPath)
    If fsoX.FolderExists(xPF) Then
        fsoX.CreateFolder xPath
    Else
        MakeDestFolder (xPF)
        If fsoX.FolderExists(xPF) Then fsoX.CreateFolder xPath
    End If
End Sub

$NewServer = '\\NewServer\Share'                                 # Your New Server and Share
$Files = 'files.txt'                                             # Save Excel file to text file
##################################################################
$arryUNC = @(get-content $files)                                 # Loading each UNC path to an array
Foreach ($i in $arryUNC){                                        # Loop through the array
    [string]$leaf = [regex]::split($i,"^\\\\\w+?(?:\\[\w\s$]+)") # Split file path from server\share
    $leaf = $leaf -replace " ",""                                # trim that pesky leading space
    $destination = $NewServer + $leaf                            # Set destination path variable
    echo "f"|xcopy $i $destination /I /O /Y                      # Using xcopy to copy file. Preserves ACL
    
}

$paths = @()
$paths = import-csv C:\temp\UNCPaths.csv
$newServer = "\\apt410-ctn\c$\Scripts"

Foreach ($path in $paths) {
$NewPath = "$newServer$($path.File.substring(1))"
$($path.File)
$NewPath
 Write-Output "f" | xcopy $($path.File) $NewPath /I /O /Y 
#Catch { Write-Output "Error: Xcopy: $_">>c:\temp\Failed.log}

If ($?) {Write-Output "Success: Xcopy $($path.File) -> $NewPath ">>c:\temp\Succeeded.log }
else {Write-Output "Error: Xcopy: $($path.File)">>c:\temp\Failed.log}
}

quote:

---

File
\\localhost\c$\temp\123.txt
\\localhost\c$\temp\1234.txt
\\apt410-ctn\c$\temp\12345.txt

---

PS C:\> notepad
PS C:\> Get-Process notepad

Handles  NPM(K)    PM(K)      WS(K) VM(M)   CPU(s)     Id ProcessName
-------  ------    -----      ----- -----   ------     -- -----------
     70       7     1944       7128    79     0,05   8740 notepad


PS C:\> $note = Get-Process notepad
PS C:\> Write-host "Calc Uses $note.handles handles"
Calc Uses System.Diagnostics.Process (notepad).handles handles
PS C:\> write-host "Calc uses $($note.handles) handles"
Calc uses 70 handles
PS C:\>

$note = Get-Process notepad|foreach-object {$_.handles}
write-host "Notepad uses $note handles"

$paths = @()
$paths = import-csv C:\temp\MySpreadsheetHere.csv
$newServer = "\\MyServerName\c$\Foldername"

Foreach ($path in $paths) {
$NewPath = "$newServer$($path.File.substring(1))"
$($path.File)
$NewPath
}