Programmingsite tutorials

font exists

admin — Sat, 14 Mar 2009 05:33:37 +0000

Public Function FontExists(FontName As String) As Boolean Dim oFont As New StdFont Dim bAns As Boolean oFont.Name = FontName bAns = StrComp(FontName, oFont.Name, vbTextCompare) = 0 FontExists = bAns End Function

Private Sub Form_Load() MsgBox FontExists(“ARIAL”) End Sub

Bookmark It Hide Sites $$('div.d94').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

File system object example

admin — Fri, 13 Mar 2009 03:38:28 +0000

‘Add a list box to the form and then add a reference to the Microsoft Scripting Runtime

Private Sub Form_Load() Dim fldr As Folder Dim fso As New FileSystemObject Dim drv As Drive Set drv = fso.GetDrive(fso.GetDriveName(“d:”)) With List1 .AddItem “Available space: ” & FormatNumber(drv.AvailableSpace / 1024, 0) & ” BK” .AddItem “Drive letter: ” [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

Display the filesystem of a drive

admin — Thu, 12 Mar 2009 01:32:00 +0000

‘Add a list box to the form and then add a reference to the Microsoft Scripting Runtime

Private Sub Form_Load() Dim fldr As Folder Dim fso As New FileSystemObject Dim drv As Drive Set drv = fso.GetDrive(fso.GetDriveName(“d:”)) MsgBox (“File system is ” & drv.FileSystem)

End Sub

Bookmark It Hide Sites $$('div.d92').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) });

No related posts.

Related posts brought to you by Yet Another [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

check whether a file exists

admin — Tue, 10 Mar 2009 23:41:44 +0000

Private Sub Form_Load()

Dim objfso As New FileSystemObject If objfso.FileExists(“f:test.txt”) Then MsgBox “The file exists”, vbInformation Else MsgBox “The file does not exist”, vbInformation End If

End Sub

Bookmark It Hide Sites $$('div.d91').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) });

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

factorial function

admin — Mon, 09 Mar 2009 21:58:49 +0000

Public Function Factorial(ByVal Factor As Byte) As Variant

On Error GoTo ErrorHandler If Factor = 0 Then Factorial = 1 Else Factorial = Factor * Factorial(Factor – 1) End If Exit Function

ErrorHandler: MsgBox Err.Description End Function

Private Sub Form_Load() MsgBox Factorial(3) End Sub

Bookmark It Hide Sites $$('div.d90').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) });

No related posts.

Related posts brought to you by Yet Another [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

get drive serial number

admin — Sun, 08 Mar 2009 20:16:55 +0000

Private Const MAX_FILENAME_LEN = 256 Private Declare Function GetVolumeInformation& Lib “kernel32″ Alias “GetVolumeInformationA” _ (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

checks whether a drive exists

admin — Sat, 07 Mar 2009 17:37:08 +0000

Private Sub Form_Load()

Dim objfso As New FileSystemObject If objfso.DriveExists(“h:”) Then MsgBox “The Drive Exists”, vbInformation Else MsgBox “The Drive does not exist”, vbInformation End If

End Sub

Bookmark It Hide Sites $$('div.d88').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) });

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

disable CTRL + ALT + DEL

admin — Fri, 06 Mar 2009 15:59:41 +0000

Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub Disable(blnDisable As Boolean)

result = SystemParametersInfo(97, blnDisable, CStr(1), 0)

End Sub

Bookmark It Hide Sites $$('div.d87').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) });

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

delete a folder

admin — Thu, 05 Mar 2009 13:22:19 +0000

Dim strDir As String

Private Sub Command1_Click() On Error GoTo ErrHandler: strDir = InputBox(“Enter the directory you wish to remove”, “Directory”)

RmDir (strDir) MsgBox “Directory ” & strDirectory & ” has been removed”, vbSystemModal + vbOKOnly, “Directory Removed” ErrHandler: MsgBox “This directory does not exist, please re-enter a valid path”, vbExclamation + vbOKOnly, “Invalid Directory” End Sub

Bookmark It Hide Sites $$('div.d86').each( function(e) { e.visualEffect('slide_up',{duration:0.5}) }); [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.

Check A Date Is Valid

admin — Wed, 04 Mar 2009 19:37:15 +0000

This example displays a form on a page . The user then enters a date , if the date is invalid then a message will be displayed on the screen . Examples of valid dates are as follows

12-12-09

12/12/09 <form method =”post” action=”<%= Request.ServerVariables(“SCRIPT_NAME”) %>”> <input type =”text” name=”date”><br> <input type=”submit”> </form> <%

Dim strDate , blnValid , dteDate If Request.ServerVariables(“CONTENT_LENGTH”) <>0 Then strDate [...] No related posts. Related posts brought to you by Yet Another Related Posts Plugin.