|
Postaru:
Dim velikostSouboru As Long = FileLen("C:\AUTOEXEC.BAT")
If velikostSouboru = 0 Then
'Soubor je prázdný
Else
'Soubor není prázdný
End If
Nový způsob (doporučeno):
Dim velikostSouboru As Long = My.Computer.FileSystem.GetFileInfo("C:\AUTOEXEC.BAT").Length
If velikostSouboru = 0 Then
'Soubor je prázdný
Else
'Soubor není prázdný
End If
|