Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Sub Form_Load()
Dim OSInfo As OSVERSIONINFO, PId As String
'KPD-Team 1998
'URL: http://www.allapi.net/
'KPDTeam@Allapi.net
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Set the structure size
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
'Get the Windows version
Ret& = GetVersionEx(OSInfo)
'Chack for errors
If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
'Print the information to the form
Select Case OSInfo.dwPlatformId
Case 0
PId = "Windows 32s "
Case 1
PId = "Windows 95/98"
Case 2
PId = "Windows NT "
End Select
Print "OS: " + PId
Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion))
Print "Build: " + str(OSInfo.dwBuildNumber)
End Sub
VB6 2 Voprosa
Narod please pomogite reshite 2 problemi.
Problema 1:
Nuzna funkciya kotoraya vozvrashaet tip operacionki ustanovlenoy u usera(XP,2000,NT,95,98)
please kto mozet napishite mne ee ili rasskazite operayase na cho mozno ee napisate
Problema2:
Mne nuzno udalite papku v kotoroy naxoditsa mnogo filov papok i podpapok s filami,funkciya rmdir udalit etu papku tolko v tom sluchae esli papka budet pustoy tak chto ee ispolzovate u mena ne pluchitsa.Podskazite kak napisate takuu badagu ili hotabi podskazite kak poluchite spisok filov papok i podpapok naxodashixsa v papke kotoruu ya xochu udalite(izvrat s filelist i dirlist'boxami nepredlagate)
Problema 1:
Nuzna funkciya kotoraya vozvrashaet tip operacionki ustanovlenoy u usera(XP,2000,NT,95,98)
please kto mozet napishite mne ee ili rasskazite operayase na cho mozno ee napisate
Problema2:
Mne nuzno udalite papku v kotoroy naxoditsa mnogo filov papok i podpapok s filami,funkciya rmdir udalit etu papku tolko v tom sluchae esli papka budet pustoy tak chto ee ispolzovate u mena ne pluchitsa.Podskazite kak napisate takuu badagu ili hotabi podskazite kak poluchite spisok filov papok i podpapok naxodashixsa v papke kotoruu ya xochu udalite(izvrat s filelist i dirlist'boxami nepredlagate)
Цитата:
Originally posted by Putch
Problema 1:
Problema 1:
Код:
Цитата:
Originally posted by Putch
Problema 2:
Problema 2:
Код:
Dim fs, f, folderspec
folderspec = "C:\2"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec )
f.Delete True
folderspec = "C:\2"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec )
f.Delete True
Удаляет вместе с файлами и поддиректориями, можно еще и отдельно: DeleteFile и DeleteFolder, вообщем почитай справку про FileSystemObject, тебе понравится :)
spasibo za reshenie eto imenno to chto mne bilo nuzno tolko mne neponatna vot eta stroka: Set fs = CreateObject("Scripting.FileSystemObject") ya ne sovsem ponimau kak eto tak chto skazi gde pro eto mozno popodrobnee pochitate a to "Scripting.FileSystemObject" mena privelo v nekotoroe zameshatelstvo ya prosto nemogu vrubite ot kuda eto vede etogo net v object browsere.
Зайди в редактор VB, нажми F1 и набери в поиске: "TextStream", выбери из найденных тем - TextStream Object.... в принципе ты уже в теме, можно еще нажать на See Also и выбрать FileSystemObject Object и попадешь в начало топика про FSO.
P.S. Пути встроенной справки также как и господа неисповедимы, иногда приходится через три ссылки прыгать, чтобы попасть к нужному объекту, тогда как по его названию ты получаешь только шишь... :)
P.S. Пути встроенной справки также как и господа неисповедимы, иногда приходится через три ссылки прыгать, чтобы попасть к нужному объекту, тогда как по его названию ты получаешь только шишь... :)