|
Yup.
I don't use the TabControl often, and had forgotten that, If I ever knew it!
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
myTabControl.SelectedIndex=2;
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
I have a DVD with 15,000 word documents (transcribed op reports from doctors).
I need to organize them by date modified into folders, year first, then a month subdirectory.
The filenames have a date string in them after a patient name.
i.e.: smith john -20060415.doc
I'm wondering if it would be easier to use the fileinfo feature to pull the modified date, and then utilize that to make a folder for the month, then drop that in a folder.
I dont have any code yet, I'm in more of a brainstorming mode, but we will have to do this for a few hundred other accounts we have and need to have a working solution for this issue.
Excuse the pseudo-code, but here's my general idea.
I'd just like some guidance as to what commands I should use in this situation
-scan dir for files *.doc
-for loop
-get modified date of file
-does month folder exist
y=copy file
n=create folder
-copy file
next
Am I on the right track?
Thanks for any response, even if its "you're in the wrong forum" =)
-STL
|
|
|
|
|
The logic is pretty basic, but works. But, I'd do some sanity checking first. If you have the date information in the filename, Id start by parsing that out and comparing it to the Modified date on the file. If the two aren't within some arbitrary limit, I'd set the file aside for further review of where it should go, otherwise, I'd follow the logic you already have.
|
|
|
|
|
Thanks! Now to get it out before friday... 
|
|
|
|
|
You're on the right track; you just need to expand on your pseudocode. Perhaps something like this:
-scan for *.doc files
-for each doc file
--get modified data
--create full path from concatenated data
--does directory exist?
---no: create it
--move file to directory
-end for each
Between the idea
And the reality
Between the motion
And the act
Falls the Shadow
|
|
|
|
|
are you sure you want to categorize by date? That would make retrieval difficult if all you know is patient name or patient number.
How about dividing the lot you have now in folders according to say the first two or three characters of the current filename (so "smith john -20060415.doc" would end up in "sm" or "smi"). That would potentially lead to a few hundred or thousand folders. These folders would vary in the number of files they contain much more than your scheme, however this scheme would keep patient information for a single patient in a single folder, which any date based scheme does not.
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
Yes, it needs to be by date. The center that is requesting the archive DVD uses our software to pull the files from our SQL DB. The program they use has a listing of job numbers, and of the files, and other information, but we do not allow them remote access to them as they are from 2003-2006, and our cutoff is 01-01-2007.
They will be able to search the disk for the files using windows search, and we have yet to come up with a standard naming convention, so our office manager (not too tech savy) wants them in folders by year, 2003; 2004; 2005...etc and then by month.
So I'm just going with what he wants, but moving and creating folders for 15000 files is too time consuming, so I just need an app to do it for me.
between u, me, and the fencepost, I dont care how they use the disk, I just need to job done. lol.
I appreciate everyone's input. I'll be working on this tonight to get it out in tomorrow's End of Day, so stay tuned as I might need help with the code. ty all!
|
|
|
|
|
OK. I'll keep first watch.
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
modified on Thursday, August 13, 2009 4:12 PM
|
|
|
|
|
smith john -19850615.txt
just to see if the code would work...
now when I hit open on the open file dialog, it just sits there.
<br />
Imports System.IO<br />
Public Class Form1<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
OpenFileDialog1.ShowDialog()<br />
<br />
End Sub<br />
<br />
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br />
Dim oldpath As String<br />
Dim length As Integer<br />
Dim year As String<br />
Dim month As String<br />
Dim newpath As String<br />
Dim start As Int32 'start of year in string<br />
Dim start2 As Int32 'start of month in string<br />
Dim start3 As Int32 'start of filename in string<br />
Dim newpathfull As String<br />
<br />
For Each S As String In OpenFileDialog1.FileNames<br />
'oldpath = S<br />
'gets length of filename<br />
length = S.Length<br />
'Pulls year from last 12 digits of filename<br />
start = length - 12<br />
year = S.Substring(start, 4)<br />
'Pulls the month from the filename<br />
start3 = length - 8<br />
start2 = S.LastIndexOf("\")<br />
month = S.Substring(start3, 2)<br />
newpath = "C:\PP\"<br />
newpathfull = year & "\" & month & "\" & S.Substring(start2 + 1)<br />
'checks for directory, if not there then creates it.<br />
If (Directory.Exists(newpath)) Then<br />
System.IO.File.Copy(S, newpath)<br />
Else<br />
System.IO.Directory.CreateDirectory(newpath & year)<br />
System.IO.Directory.CreateDirectory(newpath & year & month)<br />
End If<br />
Next<br />
<br />
<br />
<br />
End Sub<br />
End Class<br />
|
|
|
|
|
I deserve a raise...
<br />
<br />
Imports System.IO<br />
Public Class Form1<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
OpenFileDialog1.ShowDialog()<br />
<br />
<br />
End Sub<br />
<br />
<br />
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk<br />
<br />
Dim oldpath As String<br />
<br />
<br />
For Each S As String In OpenFileDialog1.FileNames<br />
Dim length As Integer<br />
Dim yearpath As String<br />
<br />
Dim monthpath As String<br />
Dim newpath As String<br />
Dim start As Int32 'start of yearpath in string<br />
Dim start2 As Int32 'start of monthpath in string<br />
Dim start3 As Int32 'start of filename in string<br />
Dim newpathfull As String<br />
<br />
Threading.Thread.Sleep(100)<br />
<br />
'gets length of filename<br />
length = S.Length<br />
'Pulls yearpath from last 12 digits of filename<br />
start = length - 12<br />
yearpath = S.Substring(start, 4)<br />
'Pulls the monthpath from the filename<br />
start3 = length - 8<br />
start2 = S.LastIndexOf("\")<br />
monthpath = S.Substring(start3, 2)<br />
'new destination path<br />
newpath = S.Substring(0, 3) & yearpath & "\" & monthpath & "\"<br />
newpathfull = newpath & S.Substring((start2 + 1))<br />
'checks for directory, if not there then creates it.<br />
If (Directory.Exists(newpath)) Then<br />
System.IO.File.Copy(S, newpathfull)<br />
Else<br />
System.IO.Directory.CreateDirectory(newpath)<br />
System.IO.File.Copy(S, newpathfull)<br />
End If<br />
<br />
Next<br />
<br />
<br />
<br />
<br />
<br />
End Sub<br />
End Class<br />
<br />
Thanks everyone for all your help!
|
|
|
|
|
|
There is no "event" as you call it. AFAIK, there's not even a callback. I think you would have to enumerate the windows in the taskbar, keep a list of them, then enumerate them again every so often to see if the list changes. When the list changes, the know an app has been launched or has quit. The problem with this is that an app can run and end inside of the time you have for a polling interval. You'd never know an app was launched.
|
|
|
|
|
Thanky for your advise but what about messages?
when i use spy++ i get a lot of messages such as tb_cout(something like that)
how an i get them?
|
|
|
|
|
Probably by implementing either a GetMsgProc[^] hook or a JournalRecordProc[^] hook. Neither of which can be implemented in managed code (VB.NET or C#).
|
|
|
|
|
I want to retrieve External ip of my computer without using whatismyip website. Is there any library in VB 2005 to retrieve external IP. Please help me as soon as possible.
Regards,
Abhay
|
|
|
|
|
|
Hi,
using one or more external web sites is the only way I really trust for this to work reliably.
Have a look here[^].
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
The only way it works reliably is if you use a website external to your network.
|
|
|
|
|
Hello Everybody,
I m running in a serious trouble.I had uninstalled Visual Studio(VB6)Enterprise Edition from my PC.And know when i run VB application its not executing due to loss of some dll's and ocx files .So anybody can please help me in find list of Dll and OCX files have been deleted when uninstalling VB6.Please help its a menace ?
Thanxs in Advance.....
Rizwan
|
|
|
|
|
That list is quite long, on the order of a few hundred files. Since it sounds like you never created installers for these applications, you're only real recourse is to reinstall Visual Studio 6. If you had created installers for these apps, you would just have to reinstall the apps, or run a Repair on .MSI installers, to replace the missing files.
|
|
|
|
|
Hi Dave Kreskowiak
Thanks for your urgent reply ,I have an installer in my application.And u r right i have to reinstall it when i delete my Visual Studio 6.I wanna get the list of dll and ocx files deleted when VB6 is uninstalled.So that i can just place them again so that know need to reinstall it once again.Can u provide any idea on it.Kindly reply ..?
Thanks
|
|
|
|
|
|
Firstly be aware that I have never used VB6.
However, all previous versions of VB (v2.0 - v4.0) that I have used, required the run-time redistribution pack to be loaded on machines using apps written in VB. Therefore you might want to look at Visual Basic 6.0 Runtime Redistributable[^] page on MSDN.
If I am way off base, please ignore this. 
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Henry Minute wrote: If I am way off base, ...
If you are still using VB4 you are a little off base, otherwise all is fine. 
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
