Greetings,
There are likely easier ways of doing this than reading the output from a
command window. I know very little about UNIX, but I think you can mount a
UNIX file system so it shows up as a drive in Windows - no clue how you'd do
such a thing, just know I've seen it before. Once this was done, I'd suspect
the FileSystemObject could do stuff with the files (there are examples of
using the file system object on our website).
I'd suspect you could use FTP - there are examples using our built in FTP
on the site too.
But as an exercise (always good to practice to keep scripting skills sharp
J) I took a crack at do this using the console connection.
At first, the tricky piece appeared to be to reading the output of a DIR a
console - since that it can "scroll" if the list is bigger than the
available window. However, there is an option that the DIR command can
accept - /p that allows you to pause one screen at a time. So the script
can read one page at a time using a For / Next Loop. The next tricky piece
is where to read. When you first send the DIR command, the screen displays
volume info etc on rows 1-5. After you get another page however, the files
show up in there rows, so I had to take that into account.
Finally, need to know when you are at the end of the list.
And of course, the results will likely need to be parsed to get what you
want etc. I didn't go too far with this .
As I said above, there's likely an easier way but the example code below
seems to do the trick - not a bad scripting exercise for first thing in the
morning J
Here's my example:
Sub ReadDIR()
Dim fileList As New Collection
Dim directoryList As New Collection
Connect "cmd", stConsole
Pause "Microsoft [EMAIL PROTECTED],*"
Enter "dir /p"
Pause "Directory [EMAIL PROTECTED],*"
firstpage = True
ReadMore:
Wait
For i = 1 To 24 ' See where the files start this would be based on the
Console size settings
If firstpage Then ' he first page of files starts at row 6, any others start
at row 1
i = i + 5
firstpage = False
End If
temp = View(Row:=i, Col:=1, Length:=73)
'Here we detect "End of List"
If Trim(temp) = "" Then
'No more files
Exit For
End If
'Here store either files or directories
If InStr(temp, "<DIR>") Then
directoryList.Add Trim(temp)
Else
fileList.Add Trim(temp)
End If
Next i
At ""
If At("Press any key to continue") Then
Enter
GoTo ReadMore
End If
'Here close the console gracefully because I am done with it.
Connect "", stStream
For i = 1 To fileList.Count
Debug.Print fileList(i)
'Here's where you'd do parsing to get your file information
'For example, getting the date
fdate = Trim(StrLeft(fileList(i), 10))
If fdate = "" Then
'This must be the "count info" at the bottom of the list
End If
Next i
End Sub
Thom C. Blackwell
Product Manager
Boston Software Systems
(866) 653-5105 ex 807
www.bossoft.com <http://www.bossoft.com/>
Visit us in Booth 2471 at HIMSS08 - February 25-28 in Orlando, FL
Sign <http://www.bostonworkstation.com/customer_center/special_events.aspx>
up for my weekly webinar!
LEGAL NOTICE Unless expressly stated otherwise, this message is confidential
and may be privileged. It is intended for the addressee(s) only. Access to
this E-mail by anyone else is unauthorized. If you are not an addressee, any
disclosure or copying of the contents of this E-mail or any action taken (or
not taken) in reliance on it is unauthorized and may be unlawful. If you are
not an addressee, please inform the sender immediately, then delete this
message and empty from your trash.
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Chen, Scott C
Sent: Monday, February 25, 2008 7:12 PM
To: [email protected]
Subject: [Talk] Unix and Boston
Just curious as to whether anybody has used CMD Console to FTP to Unix and
search for files in the directories?
If so, can you provide some assistance to me. How did you retrieve the
results of your search since it is character based?
Thanks,
Scott
DISCLAIMER:
This message is intended for the sole use of the addressee, and may contain
information that is privileged, confidential and exempt from disclosure
under applicable law. If you are not the addressee you are hereby notified
that you may not use, copy, disclose, or distribute to anyone the message or
any information contained in the message. If you have received this message
in error, please immediately advise the sender by reply email and delete
this message.
