Главная › ASP_Volume2 › Make Path / Create Dir
Advertisement
ASP_Volume2 Files/ File Controls/ Input/ Output #27090

Make Path / Create Dir

Dream
★★★★★
4.8 · Загрузки: 2,341

2 lines of code to create any destination directory or path, no loops etc.

AI

ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Исходный код
original-source 
<center><table width= 100% bordercolor = '#1010BA' cellspacing='0' cellpadding='20' border='2'><tr><td>
<center><font size = 4 color = #1010BA>
<b>Make Path/Create Dir</b></font><hr color=#1010BA width = 90%><br></center><Pre>
<FONT face='MS Sans Serif' size=2 color=#0000FF>Ok, Im fed up, this lamer that calls himself Sherif Rofael needs to be dealt with by P.S.C. 
</FONT><FONT face='MS Sans Serif' size=1>He has a grudge because I gave him a poor vote that I thought was genuine, well Im sorry. 
He decides to do a search and have a little voting spree on my submissions, because he's upset&#63; 
Heres three examples.... 
http:&#47;&#47;www.planet-source-code.com&#47;vb&#47;scripts&#47;showcode.asp&#63;txtCodeId&#61;46681&#38;lngWId&#61;1 
http:&#47;&#47;planetsourcecode.com&#47;vb&#47;scripts&#47;ShowCode.asp&#63;txtCodeId&#61;46309&#38;lngWId&#61;1 
http:&#47;&#47;planetsourcecode.com&#47;vb&#47;scripts&#47;ShowCode.asp&#63;txtCodeId&#61;46563&#38;lngWId&#61;1 
It has also been brought to my attention that I am not the only one with whom he feels it necessary 
to hit the 'Poor' button whenever he see's one of 'our' submissions. Something needs to be done 
about him. 
and heres some code..... 
</FONT><FONT face='MS Sans Serif' size=1 color=#0000FF>Private Declare Function </FONT><FONT face='MS Sans Serif' size=1>MakeSureDirectoryPathExists </FONT><FONT face='MS Sans Serif' size=1 color=#0000FF>Lib </FONT><FONT face='MS Sans Serif' size=1>&#34;imagehlp.dll&#34; (</FONT><FONT face='MS Sans Serif' size=1 color=#0000FF>ByVal </FONT><FONT face='MS Sans Serif' size=1>lpPath </FONT><FONT face='MS Sans Serif' size=1 color=#0000FF>As String</FONT><FONT face='MS Sans Serif' size=1>) </FONT><FONT face='MS Sans Serif' size=1 color=#0000FF>As Long 
</FONT><FONT face='MS Sans Serif' size=1>MakeSureDirectoryPathExists (strPath)  'Must have backslash on end ie: 'c:&#92;test&#92;a&#92;b&#92;' 
</FONT></Pre><center><hr color=#1010BA width = 90%><font size = 2>Formatted with 'Text & Html Formatter'.<br></td></tr></table></center>
Оригинальные комментарии (3)
Восстановлено из Wayback Machine