Click here to Skip to main content
15,878,748 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: FindFirstFileEx() and Unicode Pin
TnTinMn10-Jun-13 14:44
TnTinMn10-Jun-13 14:44 
GeneralRe: FindFirstFileEx() and Unicode Pin
treddie10-Jun-13 16:45
treddie10-Jun-13 16:45 
GeneralRe: FindFirstFileEx() and Unicode Pin
TnTinMn10-Jun-13 17:18
TnTinMn10-Jun-13 17:18 
GeneralRe: FindFirstFileEx() and Unicode Pin
treddie10-Jun-13 18:30
treddie10-Jun-13 18:30 
AnswerRe: FindFirstFileEx() and Unicode Pin
treddie11-Jun-13 13:22
treddie11-Jun-13 13:22 
QuestionApplication with calendar menu Pin
n3814-Jun-13 3:26
n3814-Jun-13 3:26 
AnswerRe: Application with calendar menu Pin
Dave Kreskowiak4-Jun-13 5:42
mveDave Kreskowiak4-Jun-13 5:42 
GeneralRe: Application with calendar menu Pin
n3814-Jun-13 6:24
n3814-Jun-13 6:24 
Hello, the script should list files within directory and date file attributes than it should deliver data array into calendar links widget for quick acces to files by creation date and so, here is the working script that need modification

<pre lang="Javascript">
<html>
<Head>
<Title>HTA Script</Title>
<Style>
Body {Background-Color: CornSilk}
/* Sortable tables */
table.sortable thead {
background-color:#eee;
color:#666666;
font-weight: bold;
cursor: pointer;
}
</Style>

<HTA:Application
Caption = Yes
Border = Thick
ShowInTaskBar = No
MaximizeButton = Yes
MinimizeButton = Yes>

<Script Language = VBScript>
Dim Wsh,WScript
Set Wsh = CreateObject("WScript.Shell")
Sub WindowsLoads
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\")
If objFolder Is Nothing Then
Exit Sub
Else

Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
End If
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(objPath)
For each objFile in objFolder.Files

FileDate = FormatDateTime(objFile.DateLastModified,2)
If objFolder.Files.Count > 0 Then
Window.Document.Title = "Information For " & objPath
chbox = objFile.Path
strHtml = strHtml & "<tr><td><a href=" & objFile.Path & " name=chbox target=_blank>" & objFile.Name & "</a></td><td width=30>&nbsp;&nbsp;&nbsp;&nbsp;</td><td>" & FileDate & "</td></tr>"



DataArea.InnerHtml = "<table><tr><td>&nbsp;</td><td>&nbsp;&nbsp;&nbsp;&nbsp;</td><td>&nbsp;&nbsp;</td></tr>" & strHtml & "</table>"

End If
Next
End Sub
</script>

</head>
<Body onLoad = "WindowsLoads">
<p><h3 align = center><font color='Orange'>File List</font></h3>
</p>
<Span Id = "DataArea"></Span></Body><Div Align = "Center">
<P>-File List-</P>
</Body>
</html></pre>

-- modified 4-Jun-13 18:07pm.
GeneralRe: Application with calendar menu Pin
Dave Kreskowiak4-Jun-13 10:33
mveDave Kreskowiak4-Jun-13 10:33 
GeneralRe: Application with calendar menu Pin
n3814-Jun-13 10:53
n3814-Jun-13 10:53 
GeneralRe: Application with calendar menu Pin
Dave Kreskowiak4-Jun-13 11:01
mveDave Kreskowiak4-Jun-13 11:01 
GeneralRe: Application with calendar menu Pin
n3814-Jun-13 12:10
n3814-Jun-13 12:10 
GeneralRe: Application with calendar menu Pin
Edward Giles25-Jun-13 23:00
Edward Giles25-Jun-13 23:00 
GeneralRe: Application with calendar menu Pin
n38126-Jun-13 3:11
n38126-Jun-13 3:11 
QuestionHow to insert all characters in database Pin
Beiniam3-Jun-13 21:05
Beiniam3-Jun-13 21:05 
AnswerRe: How to insert all characters in database Pin
Bernhard Hiller3-Jun-13 21:22
Bernhard Hiller3-Jun-13 21:22 
GeneralRe: How to insert all characters in database Pin
Beiniam3-Jun-13 22:22
Beiniam3-Jun-13 22:22 
AnswerRe: How to insert all characters in database Pin
Richard MacCutchan3-Jun-13 22:57
mveRichard MacCutchan3-Jun-13 22:57 
AnswerRe: How to insert all characters in database Pin
Simon_Whale3-Jun-13 23:04
Simon_Whale3-Jun-13 23:04 
SuggestionRe: How to insert all characters in database Pin
Richard Deeming4-Jun-13 1:54
mveRichard Deeming4-Jun-13 1:54 
GeneralRe: How to insert all characters in database Pin
Beiniam4-Jun-13 3:02
Beiniam4-Jun-13 3:02 
QuestionUnable to Update LDAP property "department" Pin
David Mujica3-Jun-13 10:12
David Mujica3-Jun-13 10:12 
AnswerRe: Unable to Update LDAP property "department" Pin
Bernhard Hiller3-Jun-13 21:20
Bernhard Hiller3-Jun-13 21:20 
GeneralRe: Unable to Update LDAP property "department" Pin
David Mujica5-Jun-13 0:23
David Mujica5-Jun-13 0:23 
QuestionHow difficult to switch from DoEvents to Threading? Pin
treddie2-Jun-13 11:19
treddie2-Jun-13 11:19 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.