Create Directory If It Doesn't Exist

Posted on By David Kittell 
If File.ExternalWritable Then
      			If File.IsDirectory(File.DirRootExternal,"new/") = False Then
	  				File.MakeDir(File.DirRootExternal, "new")
      				sDBLocation = File.DirRootExternal & "/new"
	  			End If
   			Else
				If File.IsDirectory(File.DirInternal,"new/") = False Then
      				File.MakeDir(File.DirInternal, "new")
      				sDBLocation = File.DirInternal & "/new"
   				End If
			End If
Originally Posted on September 27, 2013
Last Updated on October 26, 2015
All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.
Basic4Android Code

Related Posts

WordPress – List All Plugins

Posted on

Place the following code on a file ex. ListAllPlugins.php and then navigate to http://yourdomain.com/ListAllPlugins.php <?PHP require($_SERVER[’DOCUMENT_ROOT’] . "/wp-load.php"); require($_SERVER[’DOCUMENT_ROOT’] . "/wp-admin/includes/plugin.php"); function PrintPluginList($option) { $all_plugins = get_plugins(); if ($option == 1) { print_r(array_values($all_plugins)); } else { echo json_encode($all_plugins); } } PrintPluginList($_GET[’op’]); ?> This is a PowerShell script to automate some…

Read More

MS SQL Import Txt File

Posted on

sqlcmd -i nonMemLoad.txt -o sqllog.txt Reference: http://msdn.microsoft.com/en-us/library/ms170572.aspx Originally Posted on October 15, 2013Last Updated on October 26, 2015 All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and…

Read More

Extract Links From Word

Posted on

Sub ExtractURL() ‘ ‘ ExtractURL Macro ‘ ‘ Dim oHpl As Hyperlink Dim dAD As Document ‘active document Dim dDc2 As Document ‘new document Dim rngStory As StoryRanges Dim rng As Range Dim intFootnotes As Integer Set dAD = ActiveDocument Set dDc2 = Documents.Add Selection.TypeText "Hyperlinks found in main document…

Read More