VB zip圧縮

VB

Try Using zip As New Ionic.Zip.ZipFile(System.Text.Encoding.GetEncoding("shift_jis")) 'フォルダ内のファイルを全て格納 '圧縮レベルを変更 zip.CompressionLevel = Ionic.Zlib.CompressionLevel.BestCompression '圧縮せずに格納する '必要な時はZIP64…

2015-01-22

VB フォルダ選択ダイアログボックス表示

VB

' 新しいフォルダの作成を不可 FolderDialog1.ShowNewFolderButton = False 'デスクトップを設定 Desktop_path = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) ' 初期選択するパスを設定する FolderDialog1.SelectedPath …

2015-01-22

ORACLE表領域の未使用領域と空き領域最高水位標(HWM)取得方法 (セグメント領域情報　エクステントID　使用ブロック数)

Oracle

SET SERVEROUTPUT ON SIZE 50000 feedback off pagesize 0 trims on lines 1000 spool SEGMENT_DATA.TXT declare v_total_blocks number; v_total_bytes number; v_unused_blocks number; v_unused_bytes number; v_last_used_extent_file_id number; v_last…

2015-01-22

ANALYZE INDEX　Oracleデータベース断片化リビルドインデックス　メンテナンス

Oracle

SET SERVEROUTPUT ON SIZE 50000 feedback off pagesize 0 trims on lines 1000 timing on time on col analyze_index new_value analyze_index format a100 select 'analyze_index' || to_char(sysdate,'_YYYYMMDDHH24MISS') || '.csv' analyze_index from …

2015-01-22

VB テキストボックス　Readonly Focus = false

VB

'キャレットの使用宣言をする Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean 'MouseDownイベント追加 Private Sub TextBoxFolder_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEven…