by Bugor (5 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 1st December 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
IExplorer. Dynamically Creates subfolder structure by given full path on Client machine
API Declarations
sRemotePath="\\MachineName\C\myApplication\Year-2002\Jan\Date\"
Call CreatePath(sRemotePath)
VBcoders
Dim FileObject
sRemotePath=Replace(sRemotePath, "/","\") 'replace "/" slashes if exist
arTemp=Split(sRemotePath,"\")
Set FileObject=CreateObject("Scripting.FileSystemObject")
sTemp="\\" & arTemp(2) & "\" & arTemp(3) & "\" 'Return MachineName and Drive letter
k=4
Do While Not FileObject.FolderExists(sRemotePath)
sTemp=sTemp & arTemp(k) & "\"
If Not FileObject.FolderExists(sTemp) Then FileObject.CreateFolder(sTemp)
k=k+1
Loop
End Sub
No comments have been posted about IExplorer. Dynamically Creates subfolder structure by given full path on Client machine. Why not be the first to post a comment about IExplorer. Dynamically Creates subfolder structure by given full path on Client machine.