Office Pro 2007 Key MkTree Function - Make sure th
 

Not too long ago, I wrote an software to handle files among directories and essential a function to make positive that the directory construction was the same involving the resource and location files. VBA delivers a operate described as MkDir that is made use of to produce a directory,Microsoft Office 2007 Pro Activation, nevertheless it calls for the parent directory already exists. Here is a function identified as MkTree that can walk a path and develop all of the directories with the tree for any presented file/directory path.
' --------------------------------------------------------------------------
' Function: MkTree
' Goal : Make directories for any provided file name
' Notes : MkTree "c:\a\b\c\file.txt" would formulate directories for c:\a\b\c
' MkTree "c:\a\b\c\" would build c:\a\b\c
' MkTree "c:\a\b\c" would produce c:\a\b
' --------------------------------------------------------------------------
Public Sub MkTree(ByVal strFile As String)
' walk the file and make certain the paths exist
Dim strRoot As String
Dim strPath As String
Dim pos As Integer
' get the root
If (InStr(strFile, ":\") = 2) Then
strRoot = Left(strFile,Office Pro 2007 Key, InStr(strFile, ":\") + 1)
ElseIf (InStr(strFile, "\\") = 1) Then
strRoot = Left(strFile,Office 2010 Home And Business Serial cl��, InStr(InStr(strFile, "\\") + 2,Microsoft Office Professional 2007 Activation, strFile, "\"))
Else
MsgBox "Invalid Root Directory", vbExclamation
Exit Sub
End If
pos = InStr(Len(strRoot) + 1, strFile, "\")
While (pos > 0)
strPath = Left(strFile,Windows 7 Pro 64bits, pos)
' Set up the directory
On Error Resume Next
MkDir strPath
Debug.Assert Err = 0 Or Err = 75
On Error GoTo 0
pos = InStr(pos + 1, strFile, "\")
Wend
End Sub

published cancel ,dior bags


| Back to logs list

If was my fault,
please do not silent.
silent like the cruel wind blew the flowers,hermes birkin,
tomorrow if they would still,
so I do not understand the thinking.
this love,
in the end who is to blame.
If it is my fault,miu miu bags,
please do not silent. Words can not express more
,面摊天天只卖4小时沐日苏息 门客望眼将穿,lady designer bags,
confusion in my mind,fendi bags,
this love,本身入手做个绿色简体中文版Firefox 4.0 beta 1,
is not my fault.
I forgot myself in the days without you,
in the cold summer,两名老太开代价10余万越野车路边捡垃圾(组图), I do not feel you.
you in my heart too beautiful.


| Back to logs list
174841632 2007 年 04 月 08 日 16:54 Reading (loading. ..) Comments (1) Category: Personal Diary