Folder Locking Software in VB 6

By using this software can protect data in file folder. We can secure files
file protection,file security done by this software.

This folder locking software is used to lock the folders that no one can enter to it .First Open the Microsoft visual basic 6.0 select file select “Standard exe”.

In the property window select name field give as “FrmMain”, and then select the “icon” property in property window give the path to icon(If you install graphics when you install vb then select this path C:\program files\Microsoft Visual Studio\Common\Graphics\Icon\Misc\SECUROIB.ICO). Else select the icon you want. When you create the .exe file this is the icon of that .exe file.


Double click on the form the code window will appear and delete all the things there.

Option Explicit
'project :Folder lock
'Develop by:Bestworldstuff.blogspot.com
'Date: 2009 Nov 11
Const Pro = "Folder Lock Ex"
Const Key = ".{e17d4fc0-5564-11d1-83f2-00a0c90dc849}"
Private Sub Form_Load()
Dim FName As String
Dim RName As String
Dim Length As Integer
FName = Command$
On Error GoTo Eh
If FName = "" Then
MsgBox "Drop an folderonmy icon to Lock or Unlock", 64, Pro
End
ElseIf Mid(FName, 1, 1) = Chr(34) Then
Length = Len(FName) - 2
FName = Mid(FName, 2, Length)
End If
If Dir(FName, vbDirectory) <> "" And Dir(FName, vbArchive) <> "" Then
MsgBox "Folder not found!", 64, Pro
End
End If
If InStr(FName, Key) = 0 Then
RName = FName & Key
Name FName As RName
MsgBox FName & " :Locked.", 64, Pro
Else
Length = Len(FName) - Len(Key)
RName = Mid(FName, 1, Length)
Name FName As RName
MsgBox RName & ":Unlocked.", 64, Pro
End If
End
Eh: MsgBox "Error Occured!", 16, "Folderlock - Error"
End
End Sub

After Type the code Save it. (Save the Form name As “FrmMain” and Project as “Folderlock”). Then to create .exe file select file select “make folderlock.exe” If there is no errors we can save it.

Now run the exe file if .exe file ok then it display “Drop a folder on my icon”

Now drag a folder to .exe file then it locked (Also the icon of the folder also changes). If we try to open it, we can’t open, and it opens some location. If we want to unlock that folder just drag that locked folder in to the Folder.exe file.

Now you can protect your Secret things.

Try this to locking folders

What do you think about this folder lock? Is it good?

Share with Your Friends

Tweet