• Home
 · 
• Internet/HTML
 · 
• IExplorer. Dynamically Creates subfolder structure by given full path on Client machine

IExplorer. Dynamically Creates subfolder structure by given full path on Client machine

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)





Rate IExplorer. Dynamically Creates subfolder structure by given full path on Client machine

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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