1.1 KiB

Raw Permalink Blame History

Folder Copy Utility

This Visual Basic application provides functionality to copy folders and track files in a database.

Form Components

Source and destination path text boxes
Copy Folder command button
File listing controls (ListBox, FileListBox)
DataGrid connected to EGSHP1A0 table via ODBC
Read File Names command button

Key Functions

Folder Operations

Command1_Click() - Initiates folder copy operation
Copydir() - Copies folder contents using FileSystemObject
DeleteDir() - Deletes source folder after copy
KillDir() - Wrapper for folder deletion

File Tracking

cmdReadFileNames_Click() - Reads files in destination folder and updates database
Records stored in EGSHP1A0 table with fields:
- HFLD# (Folder name)
- HPRD# (Product number)
- HHEX (File name)
- HENTD (Entry date)

Win32 API Functions

Uses Windows API calls for file operations:

CreateDirectory
CopyFile
FindFirstFile/FindNextFile
FindClose

Dependencies

MSAdodc control for database connectivity
MSDataGrid control for data display
FileSystemObject for folder operations