Excel�Ńt�@�C���̈ꗗ��񃊃X�g���擾�����FTech TIPS

����t�H���_�Ɋ܂܂��t�@�C���̈ꗗ���擾�ł���ƁA�t�@�C���̐����Ȃǂɖ𗧂Ă邱�Ƃ��ł���BExcel���g�����Ƃɂ��A�t�@�C���̈ꗗ�����ȒP�Ɏ擾���邱�Ƃ��ł���B

» 2003�N07��05�� 05��00�� ���J
[�R�c�ˊ��C��]
uTech TIPSṽCfbNX

�A�ږڎ�

�Ώۃ\�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

t@Cꗗ̎擾 �t�@�C���ꗗ�̎擾��
�w�肳�ꂽ�t�H���_�̉��ɂ���A�S�t�@�C���̏���Excel�̃V�[�g��Ɏ擾���邱�Ƃ��ł���B
�@ �i1�j������N���b�N����ƁA�����擾����t�H���_���̓��̓_�C�A���O�E�{�b�N�X���\�������B
�@ �i2�j�擾���ꂽ�t�@�C���̈ꗗ���B

������@

�@����ł͂��������A�쐬�܂ł̗�������Ă݂邱�Ƃɂ��悤�B

���菇1�\���[�N�V�[�g��Ƀ^�C�g���s�𐶐�����

�@filelist���[�N�V�[�g�̃e���v���[�g�E�C���[�W�͈ȉ��̂Ƃ��肾�B

쐬filelist[NV[g �쐬����filelist���[�N�V�[�g
���̂悤�ȃ^�C�g���s�ƃ{�^�������ƒ��[�N�V�[�g���쐬����B
�@ �i1�j�R�}���h�E�{�^���B
�@ �i2�j���o���^�C�g���s�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

���菇2�\�R�}���h�E�{�^����z�u����

�@�\���쐬������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

���菇3�\�t�@�C�����������A���[�N�V�[�g�ɏo�͂��邽�߂̃R�[�h���L�q����

�@���Ċ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

���菇4�\�ċA�Ăяo���p�̊֐�FileDisp���`����

�@�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

mvV[W̒ljn_CAO �m�v���V�[�W���̒lj��n�_�C�A���O
Visual Basic Editor��̃��j���[����m�}���n�|�m�v���V�[�W���n��I�����A���̂悤�Ƀv���V�[�W���̖��O����͂���ƁA�v���V�[�W���̃X�P���g�������������B
�@ �i1�j�v���V�[�W���̖��O�Ƃ��āuFileDisp�v�Ɠ��͂��A�mOK�n���N���b�N����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

uTech TIPSṽCfbNX

�uTech TIPS�v

Copyright© Digital Advantage Corp. All Rights Reserved.

'; if( !this.isSubscription ) { this.insertTarget = document.querySelector('#cmsBody .subscription') || document.querySelector('#cmsBody .inner'); } }; BodyAdIMSWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdIMSWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); } // global reference window.itm = itm; //entry point BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); })();
�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

4AI by IT - AIAAA
Microsoft  WindowsőO2025
AI for GWjAO
[R[h^m[R[h Zg by IT - ITGWjArWlX̒SŊ􂷂gD
Cloud Native Central by IT - XP[uȔ\͂gD
�V�X�e���J���m�E�n�E �y�����i�r�zPR
���Ȃ��ɂ������߂̋L��PR

RSS�ɂ‚���

�A�C�e�B���f�B�AID�ɂ‚���

���[���}�K�W���o�^

��IT�̃��[���}�K�W���́A �������A���ׂĖ����ł��B���Ѓ��[���}�K�W�������w�ǂ��������B