Sub GetCurrentDirectory()
MsgBox "カレントディレクトリ：" & CurDir
End Sub
Sub DeleteFolder1()
Dim folderPath As String
folderPath = "C:\work\tmp"
If Dir(folderPath, vbDirectory) <> "" Then
'フォルダが存在する場合は削除
RmDir folderPath
Else
MsgBox folderPath & vbCrLf & vbCrLf & "このフォルダはありません。", vbExclamation, "注意"
End If
End Sub
この例では、Dir関数でフォルダの存在を確認し、存在する場合だけ削除を行っています。
Sub DeleteFolder2()
Dim fso As New FileSystemObject
Dim folderPath As String
folderPath = "C:\work\tmp"
If fso.FolderExists(folderPath) Then
'フォルダが存在する場合は削除
fso.DeleteFolder (folderPath)
Else
MsgBox folderPath & vbCrLf & vbCrLf & "このフォルダはありません。", vbExclamation, "注意"
End If
End Sub
この例では、FolderExistsメソッドでフォルダの存在を確認し、存在する場合だけ削除を行っています。Sub DeleteFile1()
Dim filePath As String
filePath = "C:\work\image1\aaaa.jpg"
If Dir(filePath) <> "" Then
'ファイルが存在する場合は削除
Kill filePath
Else
MsgBox filePath & vbCrLf & vbCrLf & "このファイルはありません。", vbExclamation, "注意"
End If
End Sub
この例では、Dir関数でファイルの存在を確認し、存在する場合だけ削除を行っています。Sub DeleteFile2()
Dim fso As New FileSystemObject
Dim filePath As String
filePath = "C:\work\image1\aaaa.jpg"
If fso.FileExists(filePath) Then
'ファイルが存在する場合は削除
fso.DeleteFile (filePath)
Else
MsgBox filePath & vbCrLf & vbCrLf & "このファイルはありません。", vbExclamation, "注意"
End If
End Sub
この例では、FileExistsメソッドでファイルの存在を確認し、存在する場合だけ削除を行っています。Sub MakeFolder1()
Dim folderPath As String
folderPath = "C:\work\Excel\tmp"
If Dir(folderPath, vbDirectory) = "" Then
'存在しなければフォルダを作成
MkDir folderPath
Else
MsgBox folderPath & vbCrLf & vbCrLf & "このフォルダはすでにあります。", vbExclamation, "注意"
End If
End Sub
この例では、Dir関数でフォルダの存在を確認し、存在しない場合だけ作成を行っています。Sub MakeFolder2()
Dim fso As New FileSystemObject
Dim folderPath As String
folderPath = "C:\work\Excel\tmp"
If fso.FolderExists(folderPath) = False Then
'存在しなければフォルダを作成
fso.CreateFolder (folderPath)
Else
MsgBox folderPath & vbCrLf & vbCrLf & "このフォルダはすでにあります。", vbExclamation, "注意"
End If
End Sub
この例では、FolderExistsメソッドでフォルダの存在を確認し、存在しない場合だけ作成を行っています。Sub GetFileCreatedDate()
Dim fso As New FileSystemObject
Dim filePath As String
Dim message As String
filePath = "C:\work\image1\cccc.jpg"
message = filePath & vbCrLf & vbCrLf & _
"作成日時：" & fso.GetFile(filePath).DateCreated & vbCrLf & _
"最終アクセス日時：" & fso.GetFile(filePath).DateLastAccessed & vbCrLf & _
"最終更新日時：" & fso.GetFile(filePath).DateLastModified & vbCrLf
MsgBox message, vbInformation, "FileSystemObject"
End Sub
Sub GetFileType()
Dim fso As New FileSystemObject
Dim filePath As String
filePath = "C:\work\image1\cccc.jpg"
MsgBox filePath & vbCrLf & vbCrLf & "ファイルタイプは、『 " & fso.GetFile(filePath).Type & " 』です。", vbInformation, "FileSystemObject"
End Sub
