Where's the Filesystem object?

MikeLacey · Jan 25, 2000

I'm using VB5 and the help file mentions this object but doesn't say where to find it. Anyone know? 
 
Probably a really stupid question.... 
 
-ml 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

DougP · Jan 25, 2000

What is exactly do you want to do. Find the Operating System?

calahans · Jan 25, 2000

ML 
 
Make a reference to the microsoft scripting library, its part of that object model 
 
C

MikeLacey · Jan 25, 2000

I should just have asked this question in the first place - since I can't work out how to use the filesystem or file object. 
 
I need to know the creation/last access/modification time of a file. 
 
I can see the properties in the File object but I'm not getting anywhere trying to use that - help appreciated. 
 
I should stick to databases. 
 
Mike 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

edderic · Jan 26, 2000

Option Explicit 
 
Dim dc As Integer 
 
Private Const BIF_RETURNONLYFSDIRS = 1 
Private Const BIF_DONTGOBELOWDOMAIN = 2 
Private Const MAX_PATH = 260 
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long 
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long 
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long 
 
Private Type BrowseInfo 
hWndOwner As Long 
pIDLRoot As Long 
pszDisplayName As Long 
lpszTitle As Long 
ulFlags As Long 
lpfnCallback As Long 
lParam As Long 
iImage As Long 
End Type 
 
Sub fillist1() 
 
Dim li As ListItem 
Dim i As Integer 
Dim j As Integer 
Dim fs As New FileSystemObject 
Dim fl As File 
Dim fl2 As File 
Dim nieuw As Boolean 
 
Me.MousePointer = vbHourglass 
File1.Path = Text1 
For i = ListView1.ListItems.Count To 1 Step -1 
ListView1.ListItems.Remove i 
Next i 
For i = 0 To File1.ListCount - 1 
Set fl = fs.GetFile(Text1 & File1.List(i)) 
nieuw = True 
If Check1 = vbChecked Then 
For j = 0 To File2.ListCount - 1 
If UCase$(File1.List(i)) = UCase$(File2.List(j)) Then 
Set fl2 = fs.GetFile(Text2 & File2.List(j)) 
If fl2.DateLastModified >= fl.DateLastModified Then nieuw = False 
End If 
Next j 
End If 
If nieuw Then 
Set li = ListView1.ListItems.Add(, LCase$(File1.List(i)), LCase$(File1.List(i))) 
li.SubItems(1) = fl.Size 
li.SubItems(2) = Format$(fl.DateLastModified, "dd-mm-yy hh:Nn:ss&quot

End If 
Next i 
Label1 = CStr(ListView1.ListItems.Count) & " van " & CStr(File1.ListCount) 
Me.MousePointer = vbNormal 
 
End Sub 
 
Sub fillist2() 
 
Dim li As ListItem 
Dim i As Integer 
Dim j As Integer 
Dim fs As New FileSystemObject 
Dim fl As File 
Dim fl2 As File 
Dim nieuw As Boolean 
 
Me.MousePointer = vbHourglass 
File2.Path = Text2 
For i = ListView2.ListItems.Count To 1 Step -1 
ListView2.ListItems.Remove i 
Next i 
For i = 0 To File2.ListCount - 1 
Set fl = fs.GetFile(Text2 & File2.List(i)) 
nieuw = True 
If Check2 = vbChecked Then 
For j = 0 To File1.ListCount - 1 
If UCase$(File2.List(i)) = UCase$(File1.List(j)) Then 
Set fl2 = fs.GetFile(Text1 & File1.List(j)) 
If fl2.DateLastModified >= fl.DateLastModified Then nieuw = False 
End If 
Next j 
End If 
If nieuw Then 
Set li = ListView2.ListItems.Add(, LCase$(File2.List(i)), LCase$(File2.List(i))) 
li.SubItems(1) = fl.Size 
li.SubItems(2) = Format$(fl.DateLastModified, "dd-mm-yy hh:Nn:ss&quot

End If 
Next i 
Label2 = CStr(ListView2.ListItems.Count) & " van " & CStr(File2.ListCount) 
Me.MousePointer = vbNormal 
 
End Sub 
 
Sub fillist2() 
 
Dim li As ListItem 
Dim i As Integer 
Dim j As Integer 
Dim fs As New FileSystemObject 
Dim fl As File 
Dim fl2 As File 
Dim nieuw As Boolean 
 
Me.MousePointer = vbHourglass 
File2.Path = Text2 
For i = ListView2.ListItems.Count To 1 Step -1 
ListView2.ListItems.Remove i 
Next i 
For i = 0 To File2.ListCount - 1 
Set fl = fs.GetFile(Text2 & File2.List(i)) 
nieuw = True 
If Check2 = vbChecked Then 
For j = 0 To File1.ListCount - 1 
If UCase$(File2.List(i)) = UCase$(File1.List(j)) Then 
Set fl2 = fs.GetFile(Text1 & File1.List(j)) 
If fl2.DateLastModified >= fl.DateLastModified Then nieuw = False 
End If 
Next j 
End If 
If nieuw Then 
Set li = ListView2.ListItems.Add(, LCase$(File2.List(i)), LCase$(File2.List(i))) 
li.SubItems(1) = fl.Size 
li.SubItems(2) = Format$(fl.DateLastModified, "dd-mm-yy hh:Nn:ss&quot

End If 
Next i 
Label2 = CStr(ListView2.ListItems.Count) & " van " & CStr(File2.ListCount) 
Me.MousePointer = vbNormal 
 
End Sub 
 
Private Sub Form_Load() 
 
 
Me.Top = GetSetting("Compare", "Form", "Top", CStr(Me.Top)) 
Me.Left = GetSetting("Compare", "Form", "Left", CStr(Me.Left)) 
Me.Width = GetSetting("Compare", "Form", "Width", CStr(Me.Width)) 
Me.Height = GetSetting("Compare", "Form", "Height", CStr(Me.Height)) 
With ListView1 
.ColumnHeaders.Add , , "Bestand", 1693 
.ColumnHeaders.Add , , "Grote", 804, lvwColumnRight 
.ColumnHeaders.Add , , "Datum", 1464 
.View = lvwReport 
.ColumnHeaders(1).Width = GetSetting("Compare", "List1", "Width1", CStr(.ColumnHeaders(1).Width)) 
.ColumnHeaders(2).Width = GetSetting("Compare", "List1", "Width2", CStr(.ColumnHeaders(2).Width)) 
.ColumnHeaders(3).Width = GetSetting("Compare", "List1", "Width3", CStr(.ColumnHeaders(3).Width)) 
End With 
With ListView2 
.ColumnHeaders.Add , , "Bestand", 1693 
.ColumnHeaders.Add , , "Grote", 804, lvwColumnRight 
.ColumnHeaders.Add , , "Datum", 1464 
.View = lvwReport 
.ColumnHeaders(1).Width = GetSetting("Compare", "List2", "Width1", CStr(.ColumnHeaders(1).Width)) 
.ColumnHeaders(2).Width = GetSetting("Compare", "List2", "Width2", CStr(.ColumnHeaders(2).Width)) 
.ColumnHeaders(3).Width = GetSetting("Compare", "List2", "Width3", CStr(.ColumnHeaders(3).Width)) 
End With 
Text1 = GetSetting("Compare", "Paths", "Path1", App.Path & "\&quot

If Right$(Text1, 1) <> "\" Then Text1 = Text1 & "\" 
fillist1 
Text2 = GetSetting("Compare", "Paths", "Path2", App.Path & "\&quot

If Right$(Text2, 1) <> "\" Then Text2 = Text2 & "\" 
fillist2 
 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
 
SaveSetting "Compare", "Paths", "Path1", Text1 
SaveSetting "Compare", "Paths", "Path2", Text2 
With ListView1 
SaveSetting "Compare", "List1", "Width1", CStr(CLng(.ColumnHeaders(1).Width)) 
SaveSetting "Compare", "List1", "Width2", CStr(CLng(.ColumnHeaders(2).Width)) 
SaveSetting "Compare", "List1", "Width3", CStr(CLng(.ColumnHeaders(3).Width)) 
End With 
With ListView2 
SaveSetting "Compare", "List2", "Width1", CStr(CLng(.ColumnHeaders(1).Width)) 
SaveSetting "Compare", "List2", "Width2", CStr(CLng(.ColumnHeaders(2).Width)) 
SaveSetting "Compare", "List2", "Width3", CStr(CLng(.ColumnHeaders(3).Width)) 
End With 
If Not Me.WindowState = vbMinimized Then 
SaveSetting "Compare", "Form", "Top", CStr(CLng(Me.Top)) 
SaveSetting "Compare", "Form", "Left", CStr(CLng(Me.Left)) 
SaveSetting "Compare", "Form", "Width", CStr(CLng(Me.Width)) 
SaveSetting "Compare", "Form", "Height", CStr(CLng(Me.Height)) 
End If 
 
End Sub 
 
Private Sub Form_Resize() 
 
Dim l2 As Single 
 
If Me.WindowState <> vbMinimized Then 
l2 = (Me.ScaleWidth - 3 * 84) / 2 
Text1.Width = l2 - 384 
Command1.Left = Text1.Left + Text1.Width 
Text2.Left = Command1.Left + 384 + 84 
Text2.Width = l2 - 384 
Command2.Left = Text2.Left + Text2.Width 
ListView1.Width = l2 
ListView2.Width = l2 
ListView2.Left = ListView1.Left + ListView1.Width + 84 
ListView1.Height = Me.ScaleHeight - Text1.Height - Label1.Height - Check1.Height - 5 * 84 
ListView2.Height = ListView1.Height 
Label1.Top = ListView1.Top + ListView1.Height + 84 
Label1.Width = l2 
Label2.Top = Label1.Top 
Label2.Left = Label1.Left + Label1.Width + 84 
Label2.Width = l2 
Check1.Top = Label1.Top + Label1.Height + 84 
Check1.Width = l2 
Check2.Top = Check1.Top 
Check2.Left = Check1.Left + Check1.Width + 84 
Check2.Width = l2 
End If 
 
End Sub 
 
take : 2 TextBoxs,2 ListView,4 buttons 
 
Private Sub Command1_Click() 
 
Dim lpIDList As Long 
Dim sBuffer As String 
Dim szTitle As String 
Dim tBrowseInfo As BrowseInfo 
 
szTitle = "" 
With tBrowseInfo 
.hWndOwner = Me.hWnd 
.lpszTitle = lstrcat(szTitle, "&quot

.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN 
End With 
 
lpIDList = SHBrowseForFolder(tBrowseInfo) 
 
If (lpIDList) Then 
sBuffer = Space(MAX_PATH) 
SHGetPathFromIDList lpIDList, sBuffer 
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) 
Text1 = sBuffer & "\" 
fillist1 
If Check2 = vbChecked Then fillist2 
End If 
 
End Sub 
 
Private Sub Command2_Click() 
Dim lpIDList As Long 
Dim sBuffer As String 
Dim szTitle As String 
Dim tBrowseInfo As BrowseInfo 
 
szTitle = "" 
With tBrowseInfo 
.hWndOwner = Me.hWnd 
.lpszTitle = lstrcat(szTitle, "&quot

.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN 
End With 
 
lpIDList = SHBrowseForFolder(tBrowseInfo) 
 
If (lpIDList) Then 
sBuffer = Space(MAX_PATH) 
SHGetPathFromIDList lpIDList, sBuffer 
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) 
Text2 = sBuffer & "\" 
fillist2 
If Check1 = vbChecked Then fillist1 
End If 
 
End Sub 
 
Private Sub Check1_Click() 
 
fillist1 
 
End Sub 
Private Sub Check2_Click() 
 
fillist2 
 
End Sub 
 
Eric De Decker

MikeLacey · Jan 27, 2000

Thanks to Eric for his very complete answer. 
 
Also - from 
 
<A HREF="

http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vsobjfile.htm"

TARGET="_new">

http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/doc/vsobjfile.htm</A>

--snip-- 
The following code illustrates how to obtain a File object and how to view one of its properties. 
 
Function ShowDateCreated(filespec) 
 
Dim fso, f 
    Set fso = CreateObject("Scripting.FileSystemObject&quot

Set f = fso.GetFile(filespec) 
    ShowDateCreated = f.DateCreated 
End Function 
--snip-- 
 
This appeals to my (very) lazy style of programming. 
 
Mike 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Where's the Filesystem object?

MikeLacey

MIS

DougP

MIS

calahans

Programmer

MikeLacey

MIS

edderic

Programmer

MikeLacey

MIS

Similar threads

Part and Inventory Search

Sponsor