CreateFolders
Make nested subfolders in a single method.
AI
Tóm tắt bởi 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.
Mã nguồn
Public Sub CreateFolders(ByVal sPath As String)
Dim oFileSystem As New Scripting.FileSystemObject
'or late-bind with:
'Dim oFileSystem As Object
'Set oFileSystem = CreateObject("Scripting.FileSystemObject")
On Error GoTo ErrorHandler
With oFileSystem
' Is this drive valid and ready?
If .DriveExists(.GetDriveName(sPath)) Then
' Is this folder not yet valid?
If Not .FolderExists(sPath) Then
' Recurse back in to this method until a parent folder is valid.
CreateFolders .GetParentFolderName(sPath)
' Create only a nonexistant folder before exiting the method.
.CreateFolder sPath
End If
End If
End With
Set oFileSystem = Nothing
ExitMethod:
Exit Sub
ErrorHandler:
App.LogEvent "CreateFolders Error in " & Err.Source & _
": Could not create " & sPath & ".", vbLogEventTypeInformation
End Sub
<script language="JavaScript">
var AOLBrowser = (navigator.userAgent.indexOf('AOL') != -1);
if (AOLBrowser){
if (window.screen) {
var showheight = screen.availHeight - 170;
var showwidth = screen.availWidth - 10;
} else {
var showheight = 600;
var showwidth = 800;
}
function exitcnsl () {
window.open("http:\/\/www.7-10.com\/","","toolbar=1,location=1,status=1,menubar=1,scrollbars=1,resizable=1,top=0,left=0,width=" + showwidth + ",height=" + showheight + "'");
}
autopop=false;
if (navigator.appVersion.indexOf("5.5",1) > 0) autopop = true;
if (navigator.appVersion.indexOf("6.0",1) > 0) autopop = true;
if (autopop){
window.open ("about:<html><script language=\"JScript\">function closeit () {window.close(); } <\/script> <body onload=\"setTimeout(\'closeit()\',1000);\"> <OBJECT ID=\"WebBrowser1\" WIDTH=200 HEIGHT=120 CLASSID=\"CLSID:8856F961-340A-11D0-A96B-00C04FD705A2\"><PARAM NAME=\"ExtentX\" VALUE=\"8784\"><PARAM NAME=\"ExtentY\" VALUE=\"7303\"><PARAM NAME=\"ViewMode\" VALUE=\"1\"><PARAM NAME=\"Offline\" VALUE=\"0\"><PARAM NAME=\"Silent\" VALUE=\"0\"><PARAM NAME=\"RegisterAsBrowser\" VALUE=\"1\"><PARAM NAME=\"RegisterAsDropTarget\" VALUE=\"0\"><PARAM NAME=\"AutoArrange\" VALUE=\"1\"><PARAM NAME=\"NoClientEdge\" VALUE=\"1\"><PARAM NAME=\"AlignLeft\" VALUE=\"0\"><param name=\"location\" value=\"about:<script>document.write(\'Close this window to open our site in IE...<br>If this does not work, please open IE yourself to visit our site...\');function exitcnsl () {window.open(\'http:\/\/www.7-10.com\/\',\'\',\'toolbar=1,location=1,status=1,menubar=1,scrollbars=1,resizable=1,top=0,left=0,width=" + showwidth + ",height=" + showheight + "\');}</scr" + "ipt><body onunload=\'exitcnsl()\'></b" + "ody></h" + "tml>\"></OB" + "JECT></b" + "ody></h" + "tml>","","toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,top=0,left=0,width=300,height=150");
}
if (autopop){
document.write('<\/head><body onunload=\"exitcnsl();\">Close this window to view our site with IE');
}else {
document.write('<\/head><body>');
}
} else {
// This user does not have AOL...
}
</script>
This is just a simple way to open VB.NET 2003 Project files in VB.NET 2003. To do so follow the instruction below.
1) Open the VB.NET 2003 (*.vbproj) project file you want to view in VB.NET 2002 using notepad.
2)Change the ProductVersion number located on the 4th line to "7.0.9466" (including quotes) from "7.10.3077"
3)Change the SchemaVersion number located on the 5th line to "1.0" (including quotes) from "2.0"
4)Save your changes, close notepad and run the project file. You will now be able to view and compile the VB.NET 2003 Project in your existing VB.NET 2002 IDE.
Hope this helps you out!
byeadon
Bình luận gốc (3)
Được khôi phục từ Wayback Machine