����t�H���_�Ɋ܂܂��t�@�C���̈ꗗ���擾�ł���ƁA�t�@�C���̐����Ȃǂɖ𗧂Ă邱�Ƃ��ł���BExcel���g�����Ƃɂ��A�t�@�C���̈ꗗ�����ȒP�Ɏ擾���邱�Ƃ��ł���B
�Ώۃ\�t�g�E�F�A�FExcel 2000�^Excel 2002
�@�Ⴆ�A�t�@�C���E�T�[�o���̃��[�U�[�E�h�L�������g���������Ǝv�����ꍇ�A�G�N�X�v���[����t�@�C�������@�\�����ł́A�ǂ̃t�@�C�����K�v�ŁA�ǂ̃t�@�C�����s�v�Ȃ̂����f����̂͊ȒP�ł͂Ȃ��B�\�Ȃ�t�@�C���̈ꗗ���X�g���擾���āA���f�������Ƃ��낾���AWindows�W���̃G�N�X�v���[���́A����t�H���_�̉��ɂ���t�@�C���̈ꗗ���擾���ă��X�g�ɂ���悤�ȋ@�\�͎����Ă��Ȃ��B�������A�{�T���v���𗘗p���邱�ƂŁA�t�@�C���E�T�C�Y��ŏI�A�N�Z�X���Ȃǂ̎�v����Excel���[�N�V�[�g�Ƃ��Ď�荞�ނ��Ƃ��ł���B������g���āA���T�C�Y�ȏ�̃t�@�C�����~���Ƀ��X�g�A�b�v���ă��[�U�[�ɃA�[�J�C�u�������߂���A�����ԃA�N�Z�X����Ă��Ȃ��t�@�C�����폜����ꍇ�Ȃǂ̕��͎����Ƃ��ė��p���邱�Ƃ��ł��邾�낤�B�T�[�o�Ǘ��҂̊ȈՂȊĎ��c�[���Ƃ��Ė𗧂ĂĂق����B
�@����ł͂��������A�쐬�܂ł̗�������Ă݂邱�Ƃɂ��悤�B
�@filelist���[�N�V�[�g�̃e���v���[�g�E�C���[�W�͈ȉ��̂Ƃ��肾�B
�@2�s�ڂɂ́A�^�C�g���Ƃ��āu���O�v�u�e�t�H���_���v�u�T�C�Y(KB)�v�u��ށv�u�쐬�N�����v�u�ŏI�A�N�Z�X�N�����v�u�X�V�N�����v�Ƃ��������ڂ�ݒu���Ă������B����ɃV�[�g�̃v���p�e�B�ݒ�i�m�R���g���[�� �c�[���{�b�N�X�n�́m�v���p�e�B�n���N���b�N����j�ŁA�V�[�g�̃I�u�W�F�N�g�����ushtFile�v�A�V�[�g�̖��̂��ufilelist�v�ɐݒ肵�Ă����B
�@�\���쐬������A���̓t�@�C���E���X�g�����̃g���K�[�ƂȂ�m�R�}���h �{�^���n��ݒu����B�m�R���g���[�� �c�[���{�b�N�X�n����m�R�}���h �{�^���n��I�����A�V�[�g��̓K���ȏꏊ�ɔz�u����B�{�^���̃v���p�e�B�Ƃ��ẮA����͈ȉ��̂悤�ȓ��e�ɕύX���Ă���B�u�I�u�W�F�N�g���v�Ƃ́A�v���O�����̒��ł��̃R�}���h�E�{�^�����Q�Ƃ���Ƃ��Ɏg�p����閼�O�������B����́A�ق��̃v���p�e�B�ɂ��Ă͕ύX�̕K�v�͂Ȃ��B
�v���p�e�B | �ݒ肷��l |
---|---|
(�I�u�W�F�N�g��) | btnAction |
Caption | �t�@�C������ |
�ύX����v���p�e�B �I�u�W�F�N�g���ƃ{�^���̃��x����ݒ肷��B |
�@���ĊO�g���ł�����A���͂��悢��R�[�h���L�q���Ă݂悤�B
�@�f�U�C�����[�h�̏�ԁi�u�R���g���[�� �c�[���{�b�N�X�v���j���[�o�[�̎O�p��K���I�����ꂽ��ԁj�ŁA�V�[�g��ɔz�u�����R�}���h�E�{�^�����N���b�N����ƁAVisual Basic Editor���N������͂����B�R�[�h�E�G�f�B�^��ɁA���łɃC�x���g�E�v���V�[�W���̍��i�͐�������Ă���͂��Ȃ̂ŁA����̒��ɒlj�����`�ňȉ��̃R�[�h���L�q���ė~�����B
Private Sub btnAction_Click()
strPath = InputBox("���ׂ����t�H���_���p�X�œ��͂��Ă��������B", "�t�@�C���ꗗ", "c:\")
shtFile.Cells(3, 2) = " "
Range("A3", ActiveCell.SpecialCells(xlLastCell)).ClearContents
Range("A3").Select
i = 3
FileDisp strPath, i
End Sub
�@btnAction_Click�́A�R�}���h�E�{�^�����N���b�N�����Ƃ��ɌĂяo�����v���V�[�W�����B
�@InputBox�́AExcel��VBA�ɂ��炩���ߗp�ӂ���Ă���g�ݍ��݊���1�ŁAMsgBox���Ɏ��Ă��邪�A���͉\�ȃe�L�X�g�E�{�b�N�X������Ă���_�����b�Z�[�W�E�{�b�N�X�Ƃ͈قȂ�B��1�����ɃC���v�b�g�E�{�b�N�X�ɕ\������郁�b�Z�[�W���A��2�����ɂ̓^�C�g�����A�����đ�3�����ɂ̓e�L�X�g�E�{�b�N�X�Ƀf�t�H���g�ŕ\�������i���͂���Ă���j��������A���ꂼ��w�肷��B����̗�ł́A�f�t�H���g�ł́uc:\�v�Ƃ��Ă���BInputBox���͖߂�l�Ƃ��ăe�L�X�g�E�{�b�N�X�ɓ��͂��ꂽ������i���̏ꍇ�͓��͂��ꂽ�t�H���_�̃p�X�j��Ԃ��B
�@���͂��t����ƁA���ɃV�[�g�̖��g�p�����i�O��̕\�����ʁj���N���A����B�����ĕϐ�i�����[�N�V�[�g�o�͂̊J�n��ł���u3�v�ŏ��������Ă���AFileDisp�����Ăяo���BFileDisp���ɂ́A�C���v�b�g�E�{�b�N�X�Ŏw�肳�ꂽ�t�H���_�E�p�X�ƁA���[�N�V�[�g�ւ̏o�͊J�n�s�������i�p�����[�^�j�Ƃ��ēn���K�v������B�Ȃ��A��q����FileDisp���͖߂�l��Ԃ��Ȃ�Sub�v���V�[�W���ł���BSub�v���V�[�W�����R�[������ꍇ�ɂ́AVBA�ł͈������J�b�R�ň͂܂Ȃ��̂Œ��ӂ��K�v���B
�@btnAction_Click�C�x���g�E�v���V�[�W���̖����́A�����܂łł���B���ۂ̏o�͍�Ƃ́AFileDisp���Ɉς˂���B
�@�C�x���g�E�v���V�[�W���ł͂Ȃ���ʓI��Sub�v���V�[�W���́AVisual Basic Editor��̃��j���[����m�}���n�|�m�v���V�[�W���n��I�����邱�ƂŒlj��ł���B���̃��j���[��I������Ɓm�v���V�[�W���̒lj��n�_�C�A���O���\�������̂ŁA���ꂼ��ȉ��̂悤�ɓ��͂��Ă݂悤�B
�@�ȏ�̑���ŃR�[�h�E�G�f�B�^���FileDisp�v���V�[�W���̃X�P���g������������Ă���͂��ł���B����ɒNjL����`�ŁA���̂悤�ȃR�[�h���L�q���Ă������B
Private Sub FileDisp(strPath, i)
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder(strPath)
For Each objFl In objFld.Files
shtFile.Cells(i, 2) = objFs.GetBaseName(objFl.Path)
shtFile.Cells(i, 3) = objFl.ParentFolder.Path
shtFile.Cells(i, 4) = Int(objFl.Size / 1024)
shtFile.Cells(i, 5) = objFl.Type
shtFile.Cells(i, 6) = objFl.DateCreated
shtFile.Cells(i, 7) = objFl.DateLastAccessed
shtFile.Cells(i, 8) = objFl.DateLastModified
i = i + 1
Next
For Each objSub In objFld.SubFolders
FileDisp objSub.Path, i
Next
End Sub
�@�R�[�h�͔��ɃV���v���ł���B���̃R�[�h�łǂ̂悤�ɂ����牽�w�ɂ��A�Ȃ�t�@�C���E�V�X�e���̍ʼn��w�܂ł��������A�o�͂ł���̂��ƕs�v�c�Ɏv���邩������Ȃ��B�������u�ċA�Ăяo���v�Ƃ�����@��p���邱�ƂŁA���ꂪ�e�Ղɉ\�ƂȂ�B
�@��L�R�[�h��2�ڂ�For Each�u���b�N�iEnd Sub���O��3�s�j�ɒ��ڂ��Ă݂ė~�����B����͌��݂̃t�H���_�iFileSystemObject��GetFolder���\�b�h�Ő������ꂽFolder�I�u�W�F�N�gobjFld�j����A�T�u�t�H���_�iSubFolders�v���p�e�B�j�����ԂɎ��o���A�������g�iFileDisp���j���Ăяo���Ă���B�Ăяo�����ɂ́A���̃T�u�t�H���_�ւ̃p�X�ƌ��݂̏o�͍s��n���Ă���B
�@�T�u�t�H���_�̐�����FileDisp�v���V�[�W�����Ăяo����A���̃T�u�t�H���_�̒��ɍĂуT�u�t�H���_��������A����ɂ��̐�����FileDisp�v���V�[�W�����Ăяo�����B���̂悤�Ɏ������g�����d�ɂ��Ăяo�����ƂŁi�ċA�Ăяo���Ƃ����j�A�Z���v���V�[�W���������ʂ��R����̖������ʂ����̂��B����́A�X�}�[�g�ȃR�[�h���L�q�����ŋɂ߂ėL���Ȏ�@�Ȃ̂ŁA���Љ����Ă����Ă������������B
�@���āA�傫�ȗ��ꂪ�������Ƃ���ŁA1�ڂ�For Each�u���b�N�A�܂�t�@�C�����̏o�͕������ȒP�ɏЉ�Ă������B�����ł́A���݂̃t�H���_�iobjFld�j�Ɋ܂܂���A�̃t�@�C���Q�iFiles�v���p�e�B�j���珇�ԂɃt�@�C�������o���AB�`H��i�v���O�������2�`8��j�Ƀt�@�C������\�����Ă���B�Ȃ��A�����ł̓t�@�C���̊g���q���܂܂Ȃ����O�i�x�[�X�E�l�[���Ƃ����j��\�����Ă��邪�A�t�@�C�����Ɋg���q���t�����܂܂ɂ���ɂ́A
shtFile.Cells(i, 2) = objFs.GetBaseName(objFl.Path)
�Ƃ����s�i1�ڂ�For Each�̍ŏ��̍s�j���A���̂悤�ɕύX���Ă����B
shtFile.Cells(i, 2) = objFl.Name
�@�Ō�ɁAFolder�^File�I�u�W�F�N�g�ɂ������ȃv���p�e�B���܂Ƃ߂Ă����B
�v���p�e�B�� | �T�v | Folder | File |
---|---|---|---|
Attribute | ���� | �� | �� |
DateCreated | �쐬�N���� | �� | �� |
DateLastAccessed | �ŏI�A�N�Z�X�� | �� | �� |
DateLastModified | �ŏI�X�V�� | �� | �� |
Drive | ������h���C�u�� | �� | �� |
Files | �z���̃t�@�C���Q | �� | �| |
Name | �t�@�C�����i�p�X�����͏����j | �� | �� |
ParentFolder | �e�t�H���_�� | �� | �� |
Path | �t���p�X���i�{�t�@�C�����j | �� | �� |
ShortName | �V���[�g�E�t�@�C�����i8.3�`���j | �� | �� |
ShortPath | �V���[�g�E�p�X���i8.3�`���j | �� | �� |
Size | �T�C�Y�ibytes�j | �� | �� |
SubFolders | �z���̃T�u�t�H���_�Q | �� | �| |
Type | ��� | �� | �� |
Folder�^File�I�u�W�F�N�g�̎�ȃv���p�e�B |
�����̋L���Ɗ֘A���̍����ʂ̋L��
�uTech TIPS�v
Copyright© Digital Advantage Corp. All Rights Reserved.