'Creates a new directory
Public Sub FindDirOrCreate(Parent As ExternalFile, Name As String) As ExternalFile
Dim f As ExternalFile = FindFile(Parent, Name)
If f.IsInitialized = False Then
Return DocumentFileToExternalFile(Parent.Native.RunMethod("createDirectory", Array(Name)))
Else
Return f
End If
End Sub