Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48384 / 76732 ←次へ | 前へ→

【33284】Re:ディスク空き容量計算について
発言  Statis  - 06/1/7(土) 11:38 -

引用なし
パスワード
   ▼miyake さん:
こんにちは
>thisworkbookをディスクに保存(上書き保存など)する際、空きがないと保存できませんので、ディスクの空き容量とthisworkbookのファイルサイズを調べてから保存するか否か判断するプログラムを作りたいと思います。
>(例、thisworkbookファイルサイズ < ディスクの空き容量 − thisworkbookファイルサイズ trueだったら保存する)
>
>そこでファイルシステムオブジェクトというものを調べ自分なりに作ってみましたが、下記のような感じで問題ないでしょうか。
>また、.drive.freespaceの部分の先頭文字が自動的に大文字になりませんでしたが、これでも問題ないのでしょうか。
>
>
>sub test()
>
>Dim FSO As Object
>Dim drvFree As Double
>Dim fileSize As Double
>
>Set FSO = CreateObject("Scripting.FileSystemObject")
>'ディスク空き容量計算
>drvFree = FSO.GetFile(ThisWorkbook.Path & "\" & ThisWorkbook.Name).drive.freespace
>'ファイルサイズ計算
>fileSize = FSO.GetFile(ThisWorkbook.Path & "\" & ThisWorkbook.Name).Size
>
>If fileSize < drvFree - fileSize Then
>  MsgBox "保存できます"
>Else
>  MsgBox "保存できません"
>End If
>
>End Sub

試してみれば解かる事と思いますが?
0 hits

【33283】ディスク空き容量計算について miyake 06/1/7(土) 11:24 質問
【33284】Re:ディスク空き容量計算について Statis 06/1/7(土) 11:38 発言

48384 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free