Inlägg

' ListFileStructureToXML.vbs

Option Explicit

Dim fs, TotalBytes, TotalFiles, Log, prevFolder

If WScript.Version < "5.6" Then Usage("Windows Script 5.6 or greater required")

Call Main("C:\Temp")

Sub Main(FolderPath)
	Dim LogFile, ScriptPath, ReportPath, ReportFileExists, Folder, Attribute, Root, f, sTmp
	
	Const ForReading     = 1
	Const ForWriting     = 2
	Const OpenAsASCII    = 0
	Const CreateIt       = True
	Const vbInformation  = 64
	Const vbExclaimation = 48
	Const vbQuestion     = 32
	Const vbCritical     = 16
	
	If Right(FolderPath, 1) = "\" Then FolderPath = Left(FolderPath, Len(FolderPath) - 1) ' Remove trailing back-slash
	
	If Len(FolderPath) < 4 Then
		Folder = ""
	Else
		Folder = Right(FolderPath, Len(FolderPath) - 3) ' Path without drive, e.g. "C:\Temp\folder" becomes "Temp\folder"
	End If
	Root = Left(FolderPath, 2) ' Should contain "C:"
	
	ScriptPath   = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
	ReportPath   = ScriptPath
	TotalBytes   = 0
	TotalFiles   = 0
	
	Set fs = CreateObject("Scripting.FileSystemObject")
	If Not fs.FolderExists(Root & "\" & Folder) Then
		MsgBox "Specified folder does not exist!" & vbCrLf & vbCrLF & Root & "\" & Folder & vbCrLf & vbCrLf & "Please check your input parameters.", vbExclaimation,"Folder missing"
		Set fs  = nothing
		WScript.Quit
	End If
	
	' Create and open the Log File
	LogFile = ReportPath & "ListFileStructureToXML.xml"
	
	Set Log = fs.OpenTextFile(LogFile, ForWriting, CreateIt, OpenAsASCII)
	
	Log.writeline "<?xml version=""1.0""?>"
	Log.Writeline "<Root>"
	
	' Get the file list
	GetFileList Root & "\" & Folder
	
	' Get the Folder List
	GetFolderList Root, Folder
	
	If TotalFiles = 0 Then
		Log.Writeline "<file />"
	End If

	Log.Writeline "<SearchResult>"
	Log.Writeline "<SearchLocation>" & Root & "\" & Folder & "</SearchLocation>"
	Log.Writeline "<TotalNoOfFiles>" & TotalFiles & "</TotalNoOfFiles>"
	Log.Writeline "<TotalNoOfBytes>" & TotalBytes & "</TotalNoOfBytes>"
	Log.Writeline "</SearchResult>"
	Log.Writeline "</Root>"
	
	
	If TotalFiles > 0 Then
		Wscript.CreateObject("WScript.Shell").Run LogFile
	Else
		MsgBox "No files found for the specified path:" & vbCrLf & vbCrLf & Root & "\" & Folder, vbInformation, "No files found..."
	End If
	
	Set fs  = Nothing
End Sub

Sub GetFolderList(root,folderspec)
	Dim f, f1, sf
	
	Set f = fs.GetFolder(root & "\" & folderspec)
	Set sf = f.SubFolders
	
	For Each f1 In sf
		GetFileList root & "\" & folderspec & "\" & f1.name
		GetFolderList root & "\" & folderspec, f1.name
	Next

End Sub


Sub GetFileList(folderspec)
	Dim f, f1, fc, sTmp(2), extension
	
	Set f = fs.GetFolder(folderspec)
	If prevFolder <> f Then Log.Writeline "<Folder name=""" & f & """>"
	
	Set fc = f.Files
	For Each f1 in fc
		extension = fs.GetExtensionName(folderspec & "\" & f1.name)
		sTmp(0) = GetFileInfo(1, folderspec & "\" & f1.name)
		sTmp(1) = GetFileInfo(2, folderspec & "\" & f1.name)
		Log.Writeline "<file name=""" & f1.name & """ size=""" & sTmp(0) & """ access=""" & sTmp(1) & """ type=""" & extension & """ />"
	Next
	
	If prevFolder <> f Then
		prevFolder = f
		Log.Writeline "</Folder>"
	End If
	
End Sub


Function GetFileInfo(info, filespec)
	Dim f, RO, s

	Set f = fs.GetFile(filespec)
	If info = 1 Then
		s = f.size                      'file size in bytes
		TotalBytes = TotalBytes + s     'note the size
		TotalFiles = TotalFiles + 1    'Count it.
	End If
	If info = 2 Then RO = (f.attributes and 1)       'RO=1=Read only; RO=0=Not Read only
	
	If info = 1 Then
		GetFileInfo = s
	ElseIf (RO = 0) And info = 2 Then 'If it's not RO and...
		GetFileInfo = "Read-Write"
	ElseIf (RO = 1) And info = 2 Then      'If it is ReadOnly...
		GetFileInfo = "Read-Only "
	End If        

End Function

<%
Response.Write "And the extension was: " & strGetFileExtension("c:\temp\blaffa.txt")

Function strGetFileExtension(strIn)
	Dim i, strExt

	For i = Len(strIn) To 1 Step -1
		If Mid(strIn, i, 1) = "." Then Exit For
		strExt = Mid(strIn, i, 1) & strExt 
	Next
	strGetFileExtension = strExt
End Function
%>

If Len(strIn) = Len(strExt) Then strExt = ""
strGetFileExtension = strExt

<form name="frmLogin" method="post" action="login.asp">
<input type="text" name="txtLoginName">
...
<input type="submit" name="cmdSubmitLogin" value="Login...">
</form>

<form name="frmRegister" method="post" action="register.asp">
...
<input type="submit" name="cmdSubmitRegister" value="Register...">
</form>

function sailor() {
return getExternalUrlContent("http://localhost/sailor.php");
}

function getExternalUrlContent(url) {
    var xmlDoc = new ActiveXObject("Microsoft.XMLHTTP");
    xmlDoc.Open("GET", url, false);
    xmlDoc.Send();
  try {
    return xmlDoc.responseText;
  } catch(e) {
    return "Error occurred:\n\n" + e.number + "  " + e.description; 
  }
}

<html>
<head>
<title>Get external HTML</title>
<script language="JavaScript">

function getExternalUrlContent(url) {
  
  if(document.all) {
    // IE version
    var xmlDoc = new ActiveXObject("Microsoft.XMLHTTP");
    xmlDoc.Open("GET", url, false);
    xmlDoc.Send();
  } else {
    // Mozilla/Netscrap 6+ version
    var xmlDoc = new XMLHttpRequest();
    xmlDoc.open("GET", url, false);
    xmlDoc.send(null);
  }
  try {
    alert(xmlDoc.responseText);
  } catch(e) {
    alert("Error occurred:\n\n" + e.number + "  " + e.description); 
  }
}


</script>
</head>
<body onload="getExternalUrlContent('test2.htm');">

  External content will pop-up...

</body>
</html>