eggist77

メモ帳,%windir%\System32\notepad.exe

eggist77

Option Explicit

'variable declaration
Dim crDir, f, line, ary, fName
Dim fso, wsh

Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")

eggist77

'test
'Read a text file

'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8

txtFile = "txtfile.txt"

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForReading)

eggist77

;autocmd.ttl

macroname = 'autocmd'
cmdlist = 'cmdlist.txt'
prompt1 = '$'
prompt2 = '#'
timeout = 15

;コマンドリストチェック
filesearch cmdlist

eggist77

;------------------------------------------------------
; @description : telnet for CentOS
; @auther : n
; @version : 1.0
; @since : 2019/4/9
; @update : 2019/4/9
;------------------------------------------------------

target='192.168.0.1'
username='user'

eggist77

' ---------------------------------------------------
' description: 
' auther: name
' version: 1.0
' since: yyyy/mm/dd
' update: yyyy/mm/dd
' ---------------------------------------------------

Option Explicit

eggist77

;------------------------------------------------------
; @description : ssh for CentOS
; @auther : n
; @version : 1.1
; @since : 2019/4/9
; @update : 2019/11/12
;------------------------------------------------------

target='192.168.0.1'
username='user'

eggist77

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'1.Get ScriptFile folder
MsgBox fso.getParentFolderName(WScript.ScriptFullName)

'2.C:\Windows\System32
MsgBox fso.getParentFolderName("C:\Windows\System32\notepad.exe")

'3.notepad.exe

eggist77

' @description Insert an arrow in the selection hatena: entry/20181121/1542802915
' @auther n.
' @version 1.0
' @since 2018.11.21
' @update 2018.11.21

Sub makeArrow()

    Dim r As Range
    Set r = Selection

eggist77

Sub initValue()

    Dim initBoolean As Boolean
    Dim initByte As Byte
    Dim initInteger As Integer
    Dim initLong As Long
    Dim initSingle As Single
    Dim initDouble As Double
    Dim initCurrency As Currency
    Dim initDate As Date