Here’s my latest edition.. This little application generates files of any size in a location specified by the end user.
You could create 1 x 40 GB file, or create 1,000 x 1 MB files! Handy for testing backup solutions.
Features:
- Specify number of files to make
- Specify size of files to make
- Specify location of files to make
Version History
1.0.0.0 – First BETA released, no known bugs, many updates to come!
If you are having problems with this application please post a message in the forum
Hello, Just a quick post to inform you all that my simple reset app for Windows Mobile 6 has now been repackaged into it’s own CAB file and now supports Modaco’s AppToDate
You can download RSReset from the downloads section, and read more about it on it’s project page
If you don’t yet have AppToDate on your mobile device you can download it from Modaco
Thanks
If, like me you use LinkLabels to provide links to websites in yout VB.Net applications, or you would just like to include links to documents etc. You can use this code to force the file specified to be opened by the default file handler.
Imports System.Diagnostics.Process
Public Function OpenDocument(ByVal strName As String) As Boolean
Try
Start(strName)
Return True
Catch
Return False
End Try
End Function
If you want to conserve battery power, but dont want to switch off or suspend your device you can use this code to simply switch off the display!
Namespace PDA
Public Class Video
Private Const SETPOWERMANAGEMENT As Int32 = 6147
Declare Function ExtEscapeSet Lib "coredll" Alias "ExtEscape" (ByVal hdc As IntPtr, _
ByVal nEscape As Int32, _
ByVal cbInput As Int32, _
ByVal plszInData As Byte(), _
ByVal cbOutput As Int32, _
ByVal lpszOutData As IntPtr) As Int32
Declare Function GetDC Lib "coredll" (ByVal hwnd As IntPtr) As IntPtr
Public Enum VideoPowerState As Integer
VideoPowerOn = 1
VideoPowerStandBy
VideoPowerSuspend
VideoPowerOff
End Enum
Public Shared Sub PowerOff()
Dim hdc As IntPtr = GetDC(IntPtr.Zero)
Dim vpm() As Byte = {12, 0, 0, 0, 1, 0, 0, 0, VideoPowerState.VideoPowerOff, 0, 0, 0, 0}
ExtEscapeSet(hdc, SETPOWERMANAGEMENT, 12, vpm, 0, IntPtr.Zero)
End Sub
Public Shared Sub PowerOn()
Dim hdc As IntPtr = GetDC(IntPtr.Zero)
Dim vpm() As Byte = {12, 0, 0, 0, 1, 0, 0, 0, VideoPowerState.VideoPowerOn, 0, 0, 0, 0}
ExtEscapeSet(hdc, SETPOWERMANAGEMENT, 12, vpm, 0, IntPtr.Zero)
End Sub
End Class
End Namespace
