Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Используй FileSystemObject Dim FSO As New FileSystemObject, drv As Drive Private Sub Command1_Click()  MsgBox "Свободно места: " & FormatNumber(drv.FreeSpace / 1024, 0) & " КБайт" End Sub System.Management.ManagementObject("Win32_LogicalDisk.DeviceID=\"C:\"").Get System.Management.ManagementObject.Properties Retrieves information about the specified disk, including the amount of free space on the disk. Have a nice day Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: Free Space (HDD)
     
    
Добавлено: 01.02.04 17:27
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
    
 Smith | ICQ: adamis@list.ru 
      
       
  
Как узнать сколько свободного места на диске?
 
    
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 4
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа:
 KAM
![]()
ICQ: 190197618 
Вопросов: 25
Ответов: 97
      
 Профиль |  | #1
       
Добавлено:  01.02.04 17:35
       
    
       
  
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа:
 KAM
![]()
ICQ: 190197618 
Вопросов: 25
Ответов: 97
      
 Профиль |  | #2
       
Добавлено:  01.02.04 17:43
       
    
       
  
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа:
 Maxik
![]()
![]()
Вопросов: 58
Ответов: 201
      
 Профиль |  | #3
       
Добавлено:  02.02.04 06:10
       
    
       
  
 Я вот тоже спрашивал, и тоже fso предлагали. 
    
Смотри тему ДИСКИ на форуме. Я там на свой же вопрос подробно отвечаю
))
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа:
 ⊗WaX⊗
![]()
![]()
![]()
Вопросов: 26
Ответов: 325
      
 Web-сайт:  
 Профиль |  | #4
      
Добавлено:  03.02.04 21:49