Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Option Explicit
Private Declare Function SHGetDiskFreeSpace Lib "shell32" Alias "SHGetDiskFreeSpaceA" (ByVal pszVolume As String, pqwFreeCaller As Currency, pqwTot As Currency, pqwFree As Currency) As Long
Private Declare Function StrFormatByteSize64A Lib "SHLWAPI.DLL" (ByVal qdw As Currency, ByVal pszBuf As String, ByVal uiBufSize As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Sub Form_Load()
Dim cFreeCaller As Currency
Dim cTotal As Currency
Dim cFreeTotal As Currency
Dim cFormat As Currency
Dim sBuff As String
If Not SHGetDiskFreeSpace( _
Environ$("HOMEDRIVE"), _
cFreeCaller, _
cTotal, _
cFreeTotal) = 0 Then
Debug.Print "Drive: " & Environ$("HOMEDRIVE")
cFormat = cFreeTotal: GoSub Format: Debug.Print "Total Free Space: " & sBuff
cFormat = cFreeCaller: GoSub Format: Debug.Print "Free Caller: " & sBuff
cFormat = cTotal: GoSub Format: Debug.Print "Total Space: " & sBuff
End If
Exit Sub
Format:
sBuff = Space(32)
StrFormatByteSize64A cFormat, sBuff, 32
sBuff = Left(sBuff, lstrlen(sBuff))
Return
End Sub
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="App Name"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Application description here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"
uiAccess="False"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="App Name"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Application description here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="highestAvailable"
uiAccess="False"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="App Name"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>Application description here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="requireAdministrator"
uiAccess="False"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
Private Const Bit31 As Currency = 2147483647@
Private Const Bit32 As Currency = 4294967295@
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Function GetFileSizeEx(ByVal hFile As Long) As Currency
Dim lLow As Long
Dim lHigh As Long
lLow = GetFileSize(hFile, lHigh)
Call ToLargeInt(GetFileSizeEx, lLow, lHigh)
End Function
Private Function SetFilePointerEx(ByVal hFile As Long, ByVal lDistanceToMove As Currency, ByVal dwMoveMethod As Long) As Currency
Dim lLow As Long
Dim lHigh As Long
Call FromLargeInt(lDistanceToMove, lLow, lHigh)
lLow = SetFilePointer(hFile, lLow, lHigh, dwMoveMethod)
Call ToLargeInt(SetFilePointerEx, lLow, lHigh)
End Function
Private Sub FromLargeInt(ByVal cLargeInt As Currency, ByRef lLow As Long, ByRef lHigh As Long)
Do Until cLargeInt < Bit32
lHigh = lHigh + 1
cLargeInt = cLargeInt - Bit32
Loop
If cLargeInt > Bit31 Then
lLow = -CLng(Bit32 - (cLargeInt - 1))
Else
lLow = CLng(cLargeInt)
End If
End Sub
Private Sub ToLargeInt(ByRef cLargeInt As Currency, ByVal lLow As Long, ByVal lHigh As Long)
cLargeInt = Bit32 * lHigh
If lLow < 0 Then
cLargeInt = cLargeInt + (Bit32 + (lLow + 1))
Else
cLargeInt = cLargeInt + lLow
End If
End Sub
Option Explicit
Private Const CSIDL_SYSTEM As Long = &H25
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" (ByVal pszPath As String) As Long
Private Function GetSpecialfolder(ByVal CSIDL As Long) As String
Dim sPath As String * 260
If SHGetSpecialFolderLocation(0, CSIDL, CSIDL) = 0 Then
If Not SHGetPathFromIDList(CSIDL, sPath) = 0 Then
Call PathAddBackslash(sPath)
GetSpecialfolder = Left$(sPath, lstrlen(sPath))
End If
End If
End Function
Private Sub Form_Load()
Debug.Print GetSpecialfolder(CSIDL_SYSTEM)
End Sub
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
