| １．カレントディレクトリの移動 （０９３） | |
| ChDir ステートメントを使用すると、フォルダーを変更できます。 ただし、ドライブは変更されません。 Option Explicit 'SampleNo=093 WindowsXP VB6.0(SP5) 2002.05.18 Private Sub Command1_Click() If CurDir$ = "C:\WINDOWS" Then '現在のフォルダーを変更します ChDir$ "C:\VBRescue" '現在のフォルダーを取得 Label1.Caption = "現在のフォルダーは [" & CurDir$ & "] です" Else ChDir$ "C:\WINDOWS" Label1.Caption = "現在のフォルダーは [" & CurDir$ & "] です" End If End Sub |
|
| ２．フォルダーを作成する （０９３） | |
Private Sub Command2_Click() 'フォルダーを作成する MkDir$ "C:\VBRescue\Myfolder" End Sub |
|
| ３．フォルダーを削除する （０９３） | |
| 指定したフォルダー内にファイルが存在していると、エラーが発生し削除できません。 フォルダーを削除する前に、Kill ステートメントを使用してすべてのファイルを削除してください。 Private Sub Command3_Click() 'フォルダーを削除する RmDir$ "C:\VBRescue\Myfolder" End Sub |
|
| ４．ファイルをコピーする （０９３） | |
| 既に開いているファイルに対して、FileCopy ステートメントを実行しようとすると、エラーが発生し、コピーできません。 使用例 FileCopy "C:\元のファイル名" , "C:\コピー先のファイル名" Private Sub Command4_Click() 'ファイルをコピーする ChDir$ MyPath FileCopy "test.txt", "test01.txt" End Sub |
|
| ５．ファイルを削除する （０９３） | |
| 開いているファイルを削除しようとすると、エラーが発生し、削除できません。 'ワイルドカード使用可 Kill "*.*" Private Sub Command8_Click() 'ファイルを削除する Kill "test02.txt" End Sub |
|
| ６．ファイルの有無を調べる （０９３） | |
Private Sub Command6_Click() 'ファイルの有無を調べる Dim MyFile As String MyFile = Dir$("test02.txt") If Len(MyFile) > 1 Then MsgBox "ファイルが見つかりました" Else MsgBox "ファイルが見つかりません" End If End Sub その他 ファイル名を読み込む も参考にして下さい。 |
|
| ７．ファイルの作成日時を調べる （０９３） | |
Private Sub Command7_Click() 'ファイルの作成日及びサイズを取得する Label4.Caption = "作成日＝ " & FileDateTime("test02.txt") _ & " ファイルサイズ＝ " & FileLen("test02.txt") End Sub |
|
| ８．ファイル名を変更する （０９３） | |
| ファイルまたはフォルダーの名前を変更します。 Name "元のファイル名" As "新しいファイル名" Private Sub Command5_Click() 'ファイル名を変更する Name "test01.txt" As "test02.txt" End Sub |
|
| ９．ファイルサイズを調べる （０９３） | |
| |
ファイルのサイズをバイト単位で表す長整数型 (Long) の値を返します。 Private Sub Command7_Click() 'ファイルの作成日及びサイズを取得する Label4.Caption = "作成日＝ " & FileDateTime("test02.txt") _ & " ファイルサイズ＝ " & FileLen("test02.txt") End Sub 参考 １KB＝１０２４バイト １MB＝１０２４KB (1,048,576 byte) １GB＝１０２４MB (1,073,741,824 byte) |