Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. Application with calendar menu

Application with calendar menu

Scheduled Pinned Locked Moved Visual Basic
algorithmstools
9 Posts 3 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • N Offline
    N Offline
    n381
    wrote on last edited by
    #1

    To CodeProject, This is regarding a project that I'm trying to implement - quick chronological file opener script with retrieving 'FileDate' and 'ObjFilePath' and sorting its data into application calendar menu with qick links to exisiting files. Plese give some suggestions on file date and time attributes inserting into form style widget Regards, Nik

    D E 2 Replies Last reply
    0
    • N n381

      To CodeProject, This is regarding a project that I'm trying to implement - quick chronological file opener script with retrieving 'FileDate' and 'ObjFilePath' and sorting its data into application calendar menu with qick links to exisiting files. Plese give some suggestions on file date and time attributes inserting into form style widget Regards, Nik

      D Offline
      D Offline
      Dave Kreskowiak
      wrote on last edited by
      #2

      Ive read this a dozen times and I can't figure out what your'e trying to say. Don't bother repeateding what you've already said. Break the problem down into smaller parts and describe each of them. If you can't communicate what you what to do with us, you'll find it impossible to describe how to do it to a computer which is far more picky.

      A guide to posting questions on CodeProject[^]
      Dave Kreskowiak

      N 1 Reply Last reply
      0
      • D Dave Kreskowiak

        Ive read this a dozen times and I can't figure out what your'e trying to say. Don't bother repeateding what you've already said. Break the problem down into smaller parts and describe each of them. If you can't communicate what you what to do with us, you'll find it impossible to describe how to do it to a computer which is far more picky.

        A guide to posting questions on CodeProject[^]
        Dave Kreskowiak

        N Offline
        N Offline
        n381
        wrote on last edited by
        #3

        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

        HTA Script
        Body {Background-Color: CornSilk}
        /* Sortable tables */
        table.sortable thead {
        background-color:#eee;
        color:#666666;
        font-weight: bold;
        cursor: pointer;
        }

        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>    </td><td>" & FileDate & "</td></tr>"

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

        End If
        Next
        End Sub

        File List

        -File List-

        D 1 Reply Last reply
        0
        • N n381

          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

          HTA Script
          Body {Background-Color: CornSilk}
          /* Sortable tables */
          table.sortable thead {
          background-color:#eee;
          color:#666666;
          font-weight: bold;
          cursor: pointer;
          }

          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>    </td><td>" & FileDate & "</td></tr>"

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

          End If
          Next
          End Sub

          File List

          -File List-

          D Offline
          D Offline
          Dave Kreskowiak
          wrote on last edited by
          #4

          n381 wrote:

          deliver data array into calendar links widget

          What in Hell is a "calendar links widget"?!?! We STILL don't have a clue as to what you're talking about.

          A guide to posting questions on CodeProject[^]
          Dave Kreskowiak

          N 1 Reply Last reply
          0
          • D Dave Kreskowiak

            n381 wrote:

            deliver data array into calendar links widget

            What in Hell is a "calendar links widget"?!?! We STILL don't have a clue as to what you're talking about.

            A guide to posting questions on CodeProject[^]
            Dave Kreskowiak

            N Offline
            N Offline
            n381
            wrote on last edited by
            #5

            Let's say it is menu created of files date attributes, sorted as calendar (widget) with links to files, so it can be used for quick access to files selecting creation date link pointers istead of link text. Nik

            D 1 Reply Last reply
            0
            • N n381

              Let's say it is menu created of files date attributes, sorted as calendar (widget) with links to files, so it can be used for quick access to files selecting creation date link pointers istead of link text. Nik

              D Offline
              D Offline
              Dave Kreskowiak
              wrote on last edited by
              #6

              I STILL can't figure out what you're talking about, "sorted as calendar (widget)". Have a nice life!

              A guide to posting questions on CodeProject[^]
              Dave Kreskowiak

              N 1 Reply Last reply
              0
              • D Dave Kreskowiak

                I STILL can't figure out what you're talking about, "sorted as calendar (widget)". Have a nice life!

                A guide to posting questions on CodeProject[^]
                Dave Kreskowiak

                N Offline
                N Offline
                n381
                wrote on last edited by
                #7

                Okay, here is the snapshot of two applications combined : file list and calendar widget [url=http://postimage.org/\][img=http://s8.postimg.org/rs9zsz3md/vbs\_link\_calendar\_widget.jpg\][/url] [url=http://postimage.org/app.php\]windows print screen[/url] http://s8.postimg.org/rs9zsz3md/vbs\_link\_calendar\_widget.jpg Regards

                1 Reply Last reply
                0
                • N n381

                  To CodeProject, This is regarding a project that I'm trying to implement - quick chronological file opener script with retrieving 'FileDate' and 'ObjFilePath' and sorting its data into application calendar menu with qick links to exisiting files. Plese give some suggestions on file date and time attributes inserting into form style widget Regards, Nik

                  E Offline
                  E Offline
                  Edward Giles
                  wrote on last edited by
                  #8

                  So it searches for files somewhere and places links to them into a calendar-like control(.NET MonthCalendar, perhaps?), so that the date the link is displayed on is the date of the last edit. At least that was what I understood it as.

                  N 1 Reply Last reply
                  0
                  • E Edward Giles

                    So it searches for files somewhere and places links to them into a calendar-like control(.NET MonthCalendar, perhaps?), so that the date the link is displayed on is the date of the last edit. At least that was what I understood it as.

                    N Offline
                    N Offline
                    n381
                    wrote on last edited by
                    #9

                    Thank you for replying, yes it is similar kind of application but simplified and should work with retrieving 'FileDate' and 'ObjFilePath' form file attached and sorting its data into application calendar menu with quick links to exisiting files, please assist with your suggestions

                    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 class=sorttable_nosort>    </td><td>" & FileDate & "</td></tr>"

                    DataArea.InnerHtml = "<table><tr><td>  </td><td width=30>    </td><td>  </td></tr>" & strHtml & "</table>"
                    //The output string results to be processed into calendar widget with link to files//
                    End If
                    Next
                    End Sub

                    File List

                    -File List-

                    1 Reply Last reply
                    0
                    Reply
                    • Reply as topic
                    Log in to reply
                    • Oldest to Newest
                    • Newest to Oldest
                    • Most Votes


                    • Login

                    • Don't have an account? Register

                    • Login or register to search.
                    • First post
                      Last post
                    0
                    • Categories
                    • Recent
                    • Tags
                    • Popular
                    • World
                    • Users
                    • Groups