Download software, shareware, freeware, vb utilities, vb programming, free vb projects, vb source code, free ocx controls, visual basic, vbasic, vb ActiveX components, vb component, vb ActiveX controls, resize vb forms, vb resizer control, vb form resizer, resize vb applications, resolution-indepepndent vb applications, vb print control, visual basic activex control for printing, file splitter, COM, COM+, .NET, Framework, MTS, sql, recordset, record, query, vb6 print form, vb5, vb4,, visual basic 6, reports, reporting tools, printing report, format text to print to printer, paper size, paper orientation, resize form, form resizer, resize database grid, resize grid, resize DBGrid, resize Data Grid, resize MSFlexGrid, resize MSHFlexGrid, resize DataBound Grid, resize DataList, ADO, DAO, resize SSTab, resize Tab Control, resize Sheridan controls, resize Sheridan grids, resize Sheridan SSDBGrid, resize Sheridan SSOleDBGrid, TreeView resizer, ListView resizer, button resizer, image resizer, picture resizer, DriveListBox resizer, DirListBox resizer, FileListBox resizer, Data Control resizer, ListBox resizer, List resizer, ComboBox resizer, OptionButton resizer, CheckBox resizer, Frame resizer, TextBox resizer, Label resizer, rich textbox resizer, RTF control resizer, VScrollBar resizer, HScrollBar resizer, OLE resizer, ADODC resizer, ADODB, OLEDB, ODBC, MS Access form resizer, SQL server, stored procedures, HTML, ASP, vbscript, FileSystemObject, delphi, VC++, C#, dll, ocx, winsock, wininet, inet, RTF resizer, richtext resizer, richedit, shape resizer, calendar control resizer, chart resizer, MSChart resizer, common dialog, array, collection, string, variable, zip, registry, save, load, open, read, write, store, create, resource files, write, file system object, fso, visual basic free code, visual basic 6 download, Windows, Word, Excel, Power Point, MS Office, 32-bit disk utils, database development, visual basic ocx, database access, relational database, database management, activex control, visual basic tutorial, free ocx controls for VB4-VB5-VB6, activex download, ocx download, ocx files
Intelligent Programming Tools For Smart Developers!

Smart ActiveX Controls & Components For VB, VC++, Delphi, VB.NET, C#.NET, VC++.NET, ASP.NET, ASP & HTML
Microsoft Certified Professional download freeware software shareware vb applications vb programs free PDF printing components and controls for VB C ASP ASP.NET C# HTML Delphi free vb projects vb source code free ocx controls and componets for visual basic vbasic vb ActiveX components vb component vb ActiveX controls resize vb forms vb resizer control vb form resizer resize vb applications resolution-indepepndent vb applications vb print control PDF print control PDF printer control PDF printing control PDF print component for PDF printer component PDF printing component raw data print component raw data printing component raw data printer control visual basic activex control for printing COM COM+ .NET Framework vb6 print form vb5 vb4 visual basic 6 print reports reporting tools printing report format text to print to printer paper size paper orientation resize form form resizer resize database grid resize grid resize DBGrid resize DataGrid resize MSFlexGrid resize MSHFlexGrid resize DataBound Grid resize DataList resize SSTab resize Tab Control resize Sheridan controls resize Sheridan grids resize Sheridan SSDBGrid resize Sheridan SSOleDBGrid TreeView resizer ListView resizer button resizer image resizer picture resizer DriveListBox resizer DirListBox resizer FileListBox resizer Data Control resizer ListBox resizer List resizing ComboBox resizing OptionButton resizing CheckBox resizing Frame resizer TextBox resizer Label resizer rich textbox resizer RTF control resizer VScrollBar resizer HScrollBar resizer OLE resizer ADODC resizer MS Access form resizer HTML ASP vbscript delphi VC++ C# dll ocx inet RTF resizer richtext resizer richedit shape resizer calendar control resizer chart resizer MSChart resizer zip registry save load open read write to files writing to file visual basic free code visual basic 6 download Windows printing control Print from Word Excel Power Point MS Office visual basic ocx activex control visual basic tutorial free ocx controls for VB4-VB5-VB6 activex download ocx download ocx files
 ActiveResize Control Pro
 ActiveResize Control
 ActiveResize Lite (Free)
 RAW Data Printer  
 ASP Printer COM
 Smart Print Control
 Print Preview
 Active PDF Printer
 Advanced Printer Controller
 Web Server Controller
 Windows Authenticate COM
Free VB Code
 VB Projects
 Windows API
Site Content
 Free Downloads
 Order & Prices
 Contact & Support
 Site Map

For Windows 95, 98, Me, NT, 2000, XP, Win95, Win98, WinMe, WinNT, Win2000, WinXP. Keywords: vb activex components, vb activex controls, ocx controls, activex free download, vb form resize, form resizer, file splitter, print control, visual basic activex control for printing, vb6 print form, format text to print to printer, visual basic text files, paper size in vb, vb print paper type,  visual basic download, free software, shareware, visual basic code, freeware software, shareware, serial port, parallel port, LPT, COM1, COM2, comm ports, client-server, VB chat, communications, voice, telephony, security, encryption, system drivers, image viewer, browser, animation, 3D Viewer, Desktop tools, writing text files, administration program, programs, activex tutorial, free ocx, free activex, download activex controls, email component, ftp components, IIS, PWS, web server, design, ../images, graphics, word processor, Plugin, Player, sound utilities, video, play mpeg with vb, document management, administration, share, encrypt, executable, lock software, encode, decode, XOR, folder, directory, help authoring, text processing, mouse, registry, visual basic help, LAN network, API, multimedia, mpeg, mpg, avi, wav, mp3, jpg, jpeg, context menu, Hierarchical FlexGrid, Tabbed Dialog, object oriented, application, properties, methods, events, designtime, runtime, library, msie, msghook, dictionary object, RemoteData, DataRepeater, Dataset, example, vb sample, binary text, data arrays, vbs, download url, remote, get, how to play mpeg with vb, visual basic comma delimited text files, free software downloads, asp tutorial, visual basic source code, vb programming, asp scripts, asp help, asp programming, asp code, software development, activex controls free, visual basic ocx files, activex freeware



 Free VB Projects

 Get Windows & System directories, disk free space, serial number and other disk properties (using Windows API calls)

Description: This VB project retrieves such information as the Windows and System directories, the disk free space (for the given drive letter), the disk or drive serial number, the sectors per cluster, the bytes per sector and some other disk properties, using Windows API calls.

Keywords:  Windows directory, System directory, Disk serial number, Disk free space,  Disk serial number, Drive serial number, Sectors per cluster, Bytes per sector, Disk free clusters, Total number of clusters
      'Declare Windows API functions
      Private Declare Function GetWindowsDirectory Lib "kernel32" _
          Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
          ByVal nSize As Long) As Long
      Private Declare Function GetSystemDirectory Lib "kernel32" _
          Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
          ByVal nSize As Long) As Long
      Private Declare Function GetDiskFreeSpace Lib "kernel32" _
          Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
          lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
          lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters _
          As Long) As Long
Private Sub
Form_Load() 'Retrieve the path of the Windows directory Dim WinPath As String 'Create a string buffer WinPath = String(145, Chr(0)) 'Call GetWindowsDirectory API function WinPath = Left(WinPath, GetWindowsDirectory(WinPath, _ Len(WinPath))) 'Retrieve the path of the Windows system directory Dim SystemPath As String 'Create a string buffer SystemPath = String(145, Chr(0)) 'Call GetSystemDirectory API function SystemPath = Left(SystemPath, GetSystemDirectory(SystemPath, _ Len(SystemPath))) 'Call the GetDiskFreeSpace API function to retrieve disk 'free space, sectors per cluster, bytes per sector, number 'of free clusters and total number of clusters X& = GetDiskFreeSpace("c:\", b&, c&, d&, e&) 'Display the info msg = "Windows directory is: " + WinPath & vbCrLf msg = msg & "System directory is: " + SystemPath & _ vbCrLf & vbCrLf msg = msg & "Drive Info for C:" & vbCrLf msg = msg & "Sectors Per Cluster= " & b& & vbCrLf msg = msg & "Bytes Per Sector= " & c& & vbCrLf msg = msg & "Number Of Free Clusters= " & d& & vbCrLf msg = msg & "Total Number Of Clusters= " & e& & vbCrLf msg = msg & "Disk Free Space= " & Format$(b& * c& * d&, _ "###,###,###,###") & " Bytes" & vbCrLf MsgBox msg End End Sub
Return to VB projects